Attribute VB_Name = "mod_testcomm"
Option Explicit
Dim seriell As MSComm



Sub commport(obj As MSComm)
Set seriell = obj
End Sub




Sub SET_DTR()
'sets DTR.
'MScomm must be opened before!
  
 
   seriell.DTREnable = True
 
 
End Sub

Sub CLR_DTR()
'clears DTR.
'MScomm must be opened before!
  
 
   seriell.DTREnable = False
  
End Sub

Sub SET_RTS()
'sets RTS.
'MScomm must be opened before!
  
 
   seriell.RTSEnable = True
 
  
 End Sub
 
Sub CLR_RTS()
'clears DTR.
'MScomm must be opened before!
  
 
   seriell.RTSEnable = False
 

End Sub