¿Cómo usar VB para simular presionar la tecla Ctrl y el botón izquierdo del mouse al mismo tiempo para controlar el programa en segundo plano?

Función de declaración privada PostMessage Lib "user32" Alias ​​​​"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Declaración privada Sub Sleep Lib " kernel32" (ByVal dwMillisegundos As Long)

Dim anctlejiang As Long 'Este está escrito en genérico

Subcomando privado1_Click()

PostMessage 65674, 100, 17, 0 'Presione la tecla CTLE

anctlejiang = 1

Sueño 1000 'Retraso 1 segundo

PostMensaje 65674, 101, 17, 0 'Emergente tecla CTLE

p>

anctlejiang = 0

End Sub

Private Sub Timer1_Timer()

MsgBox anctlejiang

Si anctlejiang lt;gt ; 0 Entonces

Dim aa As Long

PostMessage 65674, 201, 1, 0 'Esto es presionar el botón izquierdo

Label1.Caption = "Presiona la tecla del botón izquierdo"

aa = anctlejian

Si aa lt;gt anctlejian Entonces

Publicar mensaje 65674, 202, 1, 0 'Pop. tecla izquierda arriba

Label1.Caption = "Botón emergente izquierdo"

Finalizar si

Finalizar si

Finalizar sub