En vb6.0, mantenga el botón izquierdo del mouse en el estado de clic y espere en línea. . . .
'Agregue formulario Form1, botones Command1, Command2, temporizador Timer1, agregue el siguiente código:
Private?Declare?Sub?mouse_event?Lib?"USER32"?(ByVal?dwFlags?As?Long, ByVal ? dx?As?Long, ByVal?dy?As?Long, ByVal?cButtons?As?Long, ByVal?dwExtraInfo?As?Long)
Const?MOUSEEVENTF_LEFTDOWN?= &H2
Const?MOUSEEVENTF_LEFTUP?=? &H4
Privado?Inicio"
Comando2.Caption?=?"Detener"
Temporizador1.Intervalo?=?100
Temporizador1.Enabled?=?False
Fin?Sub
Privado?Sub?Command1_Click()
Temporizador1.Enabled?Enabled = ?Verdadero
Fin?Sub
Privado?Sub?Command2_Click()
Timer1.Enabled=?False
Fin?Sub
¿Privado?Sub?Timer1_Timer ()
mouse_event?MOUSEEVENTF_LEFTDOWN?O?MOUSEEVENTF_LEFTUP,?