Private Sub Form_Load()

'   Search through attached HID devices for the "Temperatures" hardware.

'

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