Public Sub EndProgram()
     Dim frm As System.Windows.Forms.Form
     For Each frm In My.Application.OpenForms
	frm.Close()
     Next frm
     Application.Exit()
End Sub

    Private Sub frmMain_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        Dim buffer As String
        Me.Show()
        Image1.Width = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Me.ClientRectangle.Width) - 2)
        'check if new installation
        If Dir(My.Application.CurrentDirectory & "\Leagues.dat") > "" Then
            'if not then open the leaques data and get all league names
            FileOpen(1, My.Application.CurrentDirectory & "\leagues.dat", OpenMode.Input)
            While Not EOF(1)
                buffer = LineInput(1)
                If Trim(buffer) <> "" Then
                    Combo1.Items.Add(buffer)
                End If
            End While
            FileClose()
        End If
        'ListCount is -1 so if not new installation then set the listcount to first item
        If Combo1.Items.Count > 0 Then
            Combo1.SelectedIndex = 0
        End If
    End Sub

            'If I do away with the titlebar then nothing shows up on the task bar. I also don't have
            'access to the minimize or restore buttons or the exit button(X). So I  have to keep the
            'titlebar but make it invisible.
            'First make sure the form is not being minimized otherwise we get an error
            If WindowState = System.Windows.Forms.FormWindowState.Minimized Then
                FormShow = True
                frmLeague.Visible = False
                Exit Sub
            End If
            'Find the border width which is the difference of the width and the scalewidth divided by 2. P.S. this I had to change due to .NET            Border = (VB6.PixelsToTwipsX(Me.Width) - VB6.PixelsToTwipsX(Me.ClientRectangle.Width)) / 2
            'Now to get the title bar height subtract the scaleheight and the border from the heightB] P.S. this I had to change due to .NET[/B] 
            TitleHeight = VB6.PixelsToTwipsY(Me.Height) - VB6.PixelsToTwipsY(Me.ClientRectangle.Height) - Border
            'Convert the title height to pixels and subtract the border from the title bar heightB] P.S. this I had to change due to .NET[/B] 
            TitleHeight = TitleHeight - Border
            '**************************************************************************************************
            'THE FOLLOWING CODE WAS PICKED UP FROM THE INTERNET AND IS MOSTLY
            'NOT MINE. I FORGOT WHERE IT CAME FROM.
            '***************************************************************************************************
            wid = VB6.PixelsToTwipsX(Width)
            hgt = VB6.PixelsToTwipsY(Height)
            'Create the outer region which is the full form
            outer_rgn = CreateRectRgn(0, 0, wid, hgt)
            'Create the inter region which is the title bar
            inner_rgn = CreateRectRgn(0, 0, wid, TitleHeight)
            'Create a blank region and combine the two regions subtracting the inter from the outer
            combined_rgn = CreateRectRgn(0, 0, 0, 0)
            CombineRgn(combined_rgn, outer_rgn, inner_rgn, RGN_DIFF)
            'Now set the window to the new display
            SetWindowRgn(Handle.ToInt32, combined_rgn, True)
            'Delete all the regions created
            DeleteObject(combined_rgn)
            DeleteObject(inner_rgn)
            DeleteObject(outer_rgn)