Declaramos la función :

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


Y para llamarla :

dim l as long
l= SendMessage(Me.hwnd, &H112, &HF140, 0&)