Private Sub closeport_Click()
comClose hcomm
End Sub
 
Private Sub Command1_Click()
    hcomm = comOpen("COM1") 'Öffnen
'    If hcomm = 0 Then Exit Sub Else
    comSet hcomm, "BAUDRATE", 9600 'Baud Rate
    comSet hcomm, "PARITY", 0 'Parity
    comSet hcomm, "BYTE", 8 'Datenbits
    comSet hcomm, "STOP", 1 'Stopbits
    comSet hcomm, "TXBUFFER", 1024 'Transmit buffer
    comSet hcomm, "RXBUFFER", 1024 'Receive Buffer
 
    'Daten senden
        comSend hcomm, "S"
 
   'Antwort empfangen, hier evtl. ne Schleife bauen oder mit nem Timer auslesen 
   ' und zusammenfügen
 
   Dim sAnswer As String
 '  Dim sAnswer As Long
 
    'comReceive (sAnswer)
'answer = comReceive(hcomm, sAnswer)
progoutput.Caption = sAnswer
Dim S As Long
'sGet hcomm = S
progoutput.Caption = S
 
    'sAnswer = comReceive(hcomm, sAnswer)
    'Output.Text = sAnswer
    'comClose
End Sub
 
Private Sub Command2_Click()
frmAbout.Show
 
 
End Sub
 
 
Private Sub progend_Click()
comClose hcomm
End
End Sub