SERVEUR D'UN PORT SERIE AU CHOIX DU CLIENT (DLL ACTIVEX )

'Section de code de la classe ISerialPort  
'Evenement public de la classe 
'l'evenement et generer lors d'une reception dans dont le port est ouvert .
Public Event GetCommPortInput _ (ByValValueInputString)
        'Variable avec evenement du controle activex mscomm de microsot 
        Private WithEvents CommIn As MSComm
        'variable de la forme SerialPort contenant l'ocx 
        Private MyPort As SerialPort
        'variable servant au suffix et prefix
        Private suffix
        Private prefix
        'variable du port si ouvert = true 
        Private Opencomm As Boolean
Private Sub Class_Initialize()
'-------------------------------------
initialise les instances 
If MyPort Is Nothing Then
    Set MyPort = New SerialPort
End If
'--------------------------------------
If Not MyPort Is Nothing Then
    Set CommIn = MyPort.MSComm1
End If
End Sub
Private Function SetPrefix(ByVal prefix As String) As String
    If Not prefix = "" Then
        SetPrefix = prefix
    Else
        prefix = ""
    End If
End Function
Public Function SetSuffix(ByVal Mysuffix As String) As String
    If Not Mysuffix = "" Then
        SetSuffix = Mysuffix
        suffix = SetSuffix
    Else
        SetSuffix = ""
    End If
End Function
Public Function LoadCommunication(ByVal R_Treshold, ByVal PortNum, ByVal Sett, ByVal OpenPort)
If Not R_Treshold = 0 And Not PortNum = 0 And Not Sett = "" Then
    If Not CommIn Is Nothing Then
        With CommIn
        If Not Opencomm = True Then
            .RThreshold = R_Treshold
            .CommPort = PortNum
            .Settings = Sett
        End If
        If OpenPort = True Then
            .PortOpen = OpenPort
            Opencomm = True
        Else
            .PortOpen = OpenPort
            Opencomm = False
        End If
        End With
    End If
End If
End Function
Private Sub CommIn_OnComm()
Dim StrInput, strData As String
Select Case CommIn.CommEvent
    Case OnCommConstants.comEvReceive
         Do
            StrInput = StrInput & CommIn.Input
            strData = StrInput
         Loop Until InStr(StrInput, suffix)
            RaiseEvent GetCommPortInput(strData)
End Select
End Sub
Public Function SendAsciiCommand(ByVal StrCommand As String)
If Not StrCommand = "" Then
If Not Opencomm = False Then
    CommIn.Output = StrCommand & Chr(13)
End If
End If
End Function