Attribute VB_Name = "Module1"
Public fMainForm As frmMain


Sub main()
    Dim name As String
    Dim version As Long
    frmSplash.Show
    frmSplash.Refresh
    Init_WheelCommander ' find wc116 if possible; if not, launch wizard
    Set fMainForm = New frmMain
    Load fMainForm
    Unload frmSplash
    NdiCmd_Sync handle
    If handle <> -1 Then
        If NdiCmd_GetName(handle, name, version) = 1 Then
            fMainForm.WCStatus.Text = "Connected: Ver " + Str(version) + " Type " + name
        Else
            fMainForm.WCStatus.Text = "Connected"
        End If
    Else
        fMainForm.WCStatus.Text = "Not Connected"
    End If
    fMainForm.Show
End Sub