SOBRE MOUSE

PILHA 11/07/2013 11:44:25
#425868

Ola amigos blz
Eu estou precisando de fazer um pequeno projeto em vb6 sobre mouse
Preciso pressionar um botão permanecendo pressionado ele mandar um comando via porta serial.
Quando eu soltar o botão ele enviar outro comando
Eu fiz um pequeno programa aqui...Eu não sei muito
Obrigado

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MSComm1.Output = [Ô]PC[Ô] & [Ô]A[Ô]
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MSComm1.Output = [Ô]PC[Ô] & [Ô]B[Ô]
End Sub

Private Sub Form_Load()
MSComm1.PortOpen = True
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
End Sub