CommPorts

Private Sub Command1_Click()
comset.PortOpen = True
Timer1.Enabled = True
comset.Output = vbCrLf & software_msg.Text
comset.Output = vbCrLf & "Please Login, thank you." & vbCrLf & "SysCon#>"
End Sub

'ok now put this code in a timer1 For like 2 seconds,


Private Sub Timer1_Timer()
Text2.Text = comset.Input
End Sub


text2.text will update whatever data has come in through the modem.
cool eh?!

comeset is a serial port control. (the name) sorry bout that.

Private Sub
comset_OnComm()
End Sub