Agilent Technologies Agilent 3499A

295
Chapter 8 Application Programs
Visual BASIC Example Program
4
8
ErrorHandler:
' Display the error message.
MsgBox "*** Error : " + Error$, MB_ICON_EXCLAMATION
If drm <> -1 Then
viClose (drm)
End If
End
VisaErrorHandler:
Dim strVisaErr As String * 200
Call viStatusDesc(defrm, status, strVisaErr)
MsgBox "*** Error : " + strVisaErr
If drm <> -1 Then
viClose (drm)
End If
End
End Sub