Hi,
the best we can do is a VISA workaround.
Use SetVisaAttribute instead.
You can get the attribute constands from the visa headers. See code below ( assuming you have a command button called Command1 and CWVisa1 on the form.
Option Explicit
Const VI_ATTR_ASRL_RTS_STATE = &H3FFF00C0
Const VI_STATE_ASSERTED = 1
Const VI_STATE_UNASSERTED = 0
Const VI_STATE_UNKNOWN = -1
Private Sub Command1_Click()
Dim state As CWVisaLineStates
CWVisa1.Open state = CWVisa1.Asrl.RtsState
CWVisa1.SetVisaAttribute VI_ATTR_ASRL_RTS_STATE, vbLong, VI_STATE_UNASSERTED state = CWVisa1.Asrl.RtsState
CWVisa1.Close
End Sub
Otherwise, back to MSComm.
Hope that helps
Sacha.
// it takes almost no time to rate an answer