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 Form_Load()
Call SendMessage(Me.hwnd, &H112, &HF140, 0&)
 
End Sub