If txtUsernames.Text = "" Or txtPasswords.Text = "" Then
            MsgBox("Please fill in all fields.")
        End If
        Dim wc = New WebClient()
        wc.Headers.Add(HttpRequestHeader.UserAgent, "Stage3000Loader")
        wc.Proxy = Nothing
        Dim preurl = "http://185.4.149.84/vpn/api/api.php?user=" + txtUsernames.Text + "&pass=" + txtPasswords.Text + "&a=login"
        Dim response = wc.DownloadString(preurl)
        'If response <> "1|0|0" Then
        '    'answer = response
        '    MessageBox.Show("Wrong Username/Password Combination", "Error")
        '    Return
        'Else
        '    Me.Hide()
        '    'Dim Form1 As New Form
        '    Form1.Show()
        '    Return
        'End If

        If response <> "0|0|0" Then

        Else
            MessageBox.Show("Wrong Username/Password Combination", "Error")
        End If

        If response <> "0|1|0" Then

        Else
            MessageBox.Show("User has been banned. Please check the site to see why you've been banned.", "Error")
            Me.Close()
        End If

        If response <> "0|1|1" Then

        Else
            MessageBox.Show("User has been banned. Please check the site to see why you've been banned.", "Error")
            Me.Close()
        End If

        If response <> "1|0|0" Then

        Else
            Me.Hide()
            Form1.Show()
            Return
        End If

        If response <> "0|0|1" Then

        Else
            MessageBox.Show("VPN account Has Expired.", "Error")
            Me.Close()
        End If

    End Sub