public ser as new StreamSerial
 
Private Sub Button2_Click()
 ser.Open hbPortSerial, 2400
   ser.BitsPerChar=8
        ser.Parity=hbParityNone
        ser.StopBits=1   
        ser.Write "Hallo PC"
 
End Sub

Private Sub Form_Load()
 
MSComm1.CommPort = 1
MSComm1.Settings = "2400,N,8,1"
MSComm1.PortOpen = True
 
End Sub
 
Private Sub MSComm1_OnComm()
Text1.Text = MSComm1.Input
 
 
End Sub

Schaut mal vorbei:
http://www.tools.treschnet.de