Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
  hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Private Const BM_SETSTATE = &HF3
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
 
Private Sub Command1_Click()
  Dim hwnd As Long
  hwnd = Text1.Text
     Call SendMessage(hwnd, BM_SETSTATE, 0, ByVal 0&)
     Call SendMessage(hwnd, WM_LBUTTONDOWN, ByVal 1&, ByVal 11&)
     Call SendMessage(hwnd, WM_LBUTTONDOWN, ByVal 1&, ByVal 0&)
     Call SendMessage(hwnd, WM_LBUTTONUP, ByVal 0&, ByVal 0&)
     Call SendMessage(hwnd, BM_SETSTATE, ByVal 1&, ByVal 0&)
     DoEvents
     Call SendMessage(hwnd, BM_SETSTATE, 0, ByVal 0&)
End Sub