Private Sub Form_Load()

 Dim CommPort As String

 msComm1.CommPort = 1                                ' Opcija porta
 msComm1.Settings = "4800,N,8,1"
 If CommPort <> "" Then msComm1.CommPort = CommPort
 msComm1.PortOpen = True
 msComm1.DTREnable = True
 msComm1.RTSEnable = True
 msComm1.RThreshold = 1                                    ' Generate a receive event on every character received
 msComm1.InputLen = 1                                      ' Read the receive buffer 1 char at a time
End Sub