Private Sub Form_Load()

'   Search through attached HID devices for the "I2C Bridge" hardware.

'

If OpenUSBdevice("I2C Bridge") 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