Public Class Form1
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles Me.Activated
 
 
OPENCOM("Com1:")
        RTS(0)                                   
 
        sleep(50) 
 
        If DCD = 1 Then lblDCD1.Text = "I" Else lblDCD1.Text = "O"