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