' die klasse
Namespace mhc.bs.seriell
    Public Class connect
        Public Comm1 As MSCommLib.MSCommClass
        Public Sub New()
            Comm1 = New MSCommLib.MSCommClass
        End Sub
        Public Enum Port
            Com1 = 1
            Com2 = 2
        End Enum
        Public Sub hello(ByVal port As Port)
            Comm1.CommPort = Convert.ToInt16(port.ToString.Substring(3))
            Comm1.Settings = "2400,N,8,1"
            Comm1.InputLen = 0
            Comm1.PortOpen = True
        End Sub
        Public Sub bye()
            If Comm1.PortOpen = True Then
                Comm1.PortOpen = False
            End If
        End Sub
    End Class
End Namespace

' aufruf der methode
Dim c As New mhc.bs.seriell.connect
c.hello(mhc.bs.seriell.connect.Port.Com1)