Activar timer del form FUERA DEL FORM...

[TheJucas21]

Buenas habia echo un tema y creo que no voy a hacer mas por que casi termino esta busqueda.

Lo que quiero lograr es que la "tarea" se active con un click ( Que eso ya lo logre ) pero fuera del form.
Aca dejo el codigo del proyecto que tengo.

Código [Seleccionar] Expandir

Private Sub Command1_Click()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
                            SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Command2_Click()
SetWindowPos Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Form_Load()
Command1.Caption = "Siempre visible"
Command2.Caption = "Ventana Normal"
End Sub

    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        'Sólo basta con vbRightButton, pero puse la línea completa para que veas de dónde viene
        If Button = VBRUN.MouseButtonConstants.vbRightButton Then
             Call Tarea   'Ejecutamos la Tarea
        End If
    End Sub
     
    Private Sub Tarea()
        SetCursorPos "720", "133"
mouse_event MOUSEEVENTF_LEFTDOWN, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 720, 133, 0, 0
SetCursorPos "634", "335"
mouse_event MOUSEEVENTF_LEFTDOWN, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 634, 335, 0, 0
SetCursorPos "620", "390"
mouse_event MOUSEEVENTF_LEFTDOWN, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 620, 390, 0, 0
SetCursorPos "283", "344"
mouse_event MOUSEEVENTF_LEFTDOWN, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 283, 344, 0, 0
End Sub

Como ven no sabia como explicar la "tarea" pero ahi lo ven. Queria lograr, repito, como activarla con click derecho pero fuera del form.
Logre que se active la "tarea" pero tiene que ser click derecho dentro del formulario.

Como lo logro?

Saludos! Suerte!
Muchas Gracias!

[MCKSys Argentina]

Para capturar los movimientos del mouse fuera de tu app, necesitas usar Hooks.

Revisa este post.

Saludos!

[FacuM]

Hola! No entiendo exactamente que hace tu programa, pero para llamar a CUALQUIER componente de un sector separado del programa, haces: Suponiendo que estas en Form2.

Código [Seleccionar] Expandir

Form1.Timer1.Enabled = True