Option Explicit@H_403_8@Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long,ByVal bRevert As Long) As Long@H_403_8@Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long,ByVal nPosition As Long,Optional ByVal wFlags As Long = 0&) As Long@H_403_8@Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long@H_403_8@Dim i As Boolean@H_403_8@@H_403_8@Function SetWindowMoveAble(ByVal hWnd As Long,Optional ByVal MoveAble As Boolean = True) As Boolean@H_403_8@@H_403_8@'function: SetWindowMoveAble@H_403_8@' params:@H_403_8@' hWnd: 一个顶级窗口句柄@H_403_8@' MoveAble: 是否可移动@H_403_8@' result: 与参数 Moveable 的设置一样,否则即为失败@H_403_8@@H_403_8@Dim mhandle As Long@H_403_8@If MoveAble Then _@H_403_8@ GetSystemMenu hWnd,1&: _@H_403_8@ DrawMenuBar hWnd _@H_403_8@Else _@H_403_8@ mhandle = GetSystemMenu(hWnd,0&): _@H_403_8@ SetWindowMoveAble = DeleteMenu(mhandle,&HF010&)@H_403_8@@H_403_8@End Function@H_403_8@@H_403_8@Private Sub Command1_Click()@H_403_8@SetWindowMoveAble hWnd,i@H_403_8@i = Not i@H_403_8@End Sub@H_403_8@

转自：http://topic.csdn.net/u/20091202/13/66015bdf-6b87-4268-8e9d-dccf45f7ae52.html?15976