Namespace mhc.bs.seriell
    Public Class connect
        Public Shared Comm1 As AxMSCommLib.AxMSComm
        Public Shared Sub hello(ByVal port As String)
            'Open the connection and send hello to the BasicStamp
            If port = "Com1" Then
                Comm1.CommPort = 1
            Else
                If port = "Com2" Then
                    Comm1.CommPort = 2
                Else
                    MsgBox("Ungültiger ComPort", MsgBoxStyle.Critical, _
                      "ACHTUNG!!!")
                    Exit Sub
                End If
            End If
            Comm1.Settings = "2400,N,8,1"
            Comm1.InputLen = 0
            Comm1.PortOpen = True
        End Sub
        Public Shared Sub bye()
            'send bye bye to the BasicStamp and close the connection
            If Comm1.PortOpen = True Then
                Comm1.PortOpen = False
            End If
        End Sub
    End Class
End Namespace