Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ByVal wParam As Long, lParam As Any) As LongConst WM_SYSCOMMAND = & H112Const SC_MOVE = & HF012
'---- Add a command button in the window Command1, double-click the code as follows:
Private submmand1_click () Dim Ren as integerren = sendMessage (Command1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0) End Sub
'---- Add the command button in the window Command2, double click to write as follows:
Private submmand2_click () unload mend Sub