ERFORDERLICHE OBJEKTE

   1 Commandbutton (Command1)

FORM-CODE

   Private Declare Function SendMessage Lib "User32" Alias _
      "SendMessageA" (ByVal hwnd As Long, ByVal wMsg _
      As Long, ByVal wParam As Long, lParam As Long) As Long

   Private Sub Command1_Click()
      Call SendMessage(Me.hwnd, &H112, &HF140, 0&)
   End Sub