Measurement Applications (Sample Programs)
Measuring Results with Contact Check Enabled
'===================================
' Setup End
'===================================
ErrorCheck viClose(Agte4981a)
ErrorCheck viClose(defrm)
End
'===================================
' ErrorProc
'===================================
ErrorHandler:
' Display the error message
MsgBox "*** Error : " + Error$, MB_ICON_EXCLAMATION
End
End Sub
Chapter 9
157