Option Strict Off
Option Explicit On
Module MainModule
    Public fMainForm As frmMain


    Public Sub main()
        Dim name As String
        Dim version As Integer
        frmSplash.Show()
        frmSplash.Refresh()
        Init_WheelCommander() ' find wc132 if possible; if not, launch wizard
        fMainForm = New frmMain
        frmSplash.Close()
        NdiCmd_Sync(handle)
        If handle <> -1 Then
            name = "- unknown -"
            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
        System.Windows.Forms.Application.Run(fMainForm)
    End Sub
End Module