Private Sub Form_Load()MSComm1.PortOpen = TrueEnd Sub
Private Sub Timer1_Timer()If MSComm1.InBufferCount > 0 Then Dim buf as string buf = MSComm1.InputEnd IfEnd Sub
MSComm1.Output "whatever you want to send"
Please enter a valid email to subscribe
We need to confirm your email address.
To complete the subscription, please click the link in the
email we just sent you.
Thank you for subscribing!
via Egeo 16