Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim MouseMoverOn As Boolean
MouseMoverOn = GetAsyncKeyState(ComboBox1.Text)
If MouseMoverOn = True Then
Timer1.Enabled = True
End If
End Sub
x_textchangedDim MouseMoveron as Boolean If ComboBox1.Text = "F1" Then MouseMoverOn = GetAsyncKeystate(Keys.F1) Elseif ComboBox1.Text = "F2" Then MouseMoverOn = GetAsyncKeystate(Keys.F2) ElseIf ComboBox2.Text = "F3" Then MouseMoverOn = GetAsynckeystate(Keys.F3) End if If MouseMoverOn = True Then Timer1.enabled = true end if
