Option Explicit

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_ENTER = &HD: Private Const WM_CHAR = &H102

Public Sub Clicar(lHwnd As Long, x As Long, y As Long)
  Dim Rst As Long: Dim Prm As Long
  Prm = y + x
  Rst = PostMessage(lHwnd, WM_CHAR, vbKeySpace, ByVal Prm)
End Sub

Private Sub Command1_Click()
  Call Clicar(Text1.hwnd, 1, 1)
End Sub
Private Sub Command2_Click()
  Call Clicar(Text1.hwnd, 1, 10)
End Sub

Private Sub Form_Load()
Text1 = "X"
End Sub