Private Sub mnuNodeE_Click(index As Integer)
' Send request for status of specified node
frmMoniMDI.MousePointer = vbHourglass
' disable the menu item for displayed node
If index <= giNodeCount Then
mnuNodeE(index).Enabled = False
End If
' save index in a global for the initial IP send
giFormNum = index
' create a new form for the selected node
If bNECreated(index) = False Then
Set NewExceptions(index) = New frmExceptions
bNECreated(index) = True
End If
Load NewExceptions(index)
NewExceptions(index).Caption = mnuNodeE(index).Caption & " Exceptions"
NewExceptions(index).Tag = index
' display the form
NewExceptions(index).Show
frmMoniMDI.MousePointer = vbDefault
End Sub