Private Sub Form_Load()
'   Search through attached HID devices for the "Buttons & Lights" hardware.
'
If OpenUSBdevice("Buttons & Lights") Then
    DisplayWindow.Show (1) ' Pass control to the DisplayWindow form
    StatusBox.Text = vbCrLf & "Hope you had fun!" ' Change the text for the return from DisplayWindow
    End If
' StartupWindow will be displayed now
End Sub
Private Sub OKButton_Click()
Stop ' Exit the program
End Sub