common.bas

vb,agilent 816x vxipnp control library application.

Attribute VB_Name = "Common"
Global PWM_Slot As Long
Global FLS_Slot As Long
Global IHandle As Long

Public Sub checkStatus(ByVal status)
Dim message As String * 256

If (status = VI_SUCCESS) Then GoTo Ret:
If (status = hp816x_INSTR_ERROR_DETECTED) Then
retStatus = hp816x_error_query(IHandle, status, message)
Else
retStatus = hp816x_error_message(IHandle, status, message)
End If
result = MsgBox(message, vbOKOnly + vbExclamation, "VxiPnP Driver")
Ret:
End Sub