FlatProgressBar1.Increment(10)
            MsgBox(FlatProgressBar1.Value)
            Dim CSQL As New MySqlConnection("server=xxx;Port=xxxx; userid=xxxx; password=xxxx; database=xxxx;")
            FlatProgressBar1.Increment(20)
            Dim COMMAND As New MySqlCommand
            FlatProgressBar1.Increment(30)
            Dim Reader As MySqlDataReader
            FlatProgressBar1.Increment(40)
            CSQL.Open()
            FlatProgressBar1.Increment(50)
            COMMAND.Connection = CSQL
            FlatProgressBar1.Increment(60)
            COMMAND.CommandText = "SELECT username, password FROM login WHERE username='" & FlatTextBox1.Text & "' and password='" & FlatTextBox2.Text & "'"
            FlatProgressBar1.Increment(75)
            Reader = COMMAND.ExecuteReader
            FlatProgressBar1.Increment(80)