GERER L'ÉVÈNEMENT ONCOMM D'UNE LIAISON

Private Sub Com1_OnComm()
Dim recu, tmpstr
Dim tmpImpul As Integer
tmpImpul = 0

'Pour ce programme, je reçoit et traite les caractère reçus un à un, 
'Si vous voulez lire tout les 3 caractères reçus, il vous suffira de mettre : 
'
'While Com1.InBufferCount = 3
'recu = Com1.input
'wend
 
While Com1.InBufferCount <> 0
  recu = Com1.Input
Wend

'Ici je compare l'octet recu celon mes propres critères.
If (Hex(recu) And &H10000000) Then
     'Mes intruction confidentielles =)
End If


End Sub