Declare Function SendMessageW Lib "user32" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long <#Module=mdlMain> '--------------------------------------- Sub Load(cmdLine) form.autoredraw=true form.add "command",1 form.command(1).move 600, 600, 3000, 800 form.command(1).caption="Admin" SendMessageW form.command(1).hwnd, &H1600 + &H000C, 0, 1 form.show End Sub <#Module> <#Form=form> '--------------------------------- Sub Form_Unload() endmf End Sub <#Form>