Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Boolean
Sub PerformClick(ByVal Con As Control)
SendMessage(Con.Handle, &H201, 0, 0)
SendMessage(Con.Handle, &H202, 0, 0)
End Sub
PerformClick(Button1) PerformClick(Label1) PerformClick(TextBox1)