startup.vb.svn-base

MirUnleashed vb.net Module modMainServer Public WithEvents Socket As New WinsockServer Pub

Public Class StartUp

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PresentMode = A1.SelectedIndex
        PresentMode2 = A2.SelectedIndex

        Me.Hide()

        If PresentMode2 = 0 Then
            Game.Width = 800
            Game.Height = 600
            GameWidth = 800
            GameHeight = 600
        End If


        If CheckBox1.Checked = True Then
            MusicOn = True
        Else
            MusicOn = False
        End If

        If CheckBox2.Checked = True Then
            SoundOn = True
        Else
            SoundOn = False
        End If

        Game.Show()
    End Sub

    Private Sub StartUp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        A1.SelectedItem = "Windowed Mode"
        A2.SelectedItem = "1024 * 768"
        Running = True
    End Sub
End Class