Login Program

Try
   Dim loginWebClient As New WebClient
   Dim nvc As New NameValueCollection

   Login.panel_loginUser.Enabled = False
   nvc.Clear()
   nvc.Add("POST_login", "POST_login")
   nvc.Add("username", login_username.Text)
   nvc.Add("password", login_password.Text)
   Dim result As Byte() = loginWebClient.UploadValues("http://localhost/login.php", "POST", nvc)
   Dim resultstring As String = System.Text.Encoding.ASCII.GetString(result)
      Select Case (resultstring)
           Case "[ok]"
                //Login worked!
                Msgbox("Welcome!")
           Case "[no_perm]"
                Msgbox("No Permission!")
           Case "[incorrect]"
                Msgbox("User not found!")
           Case "[wrong_pass]"
                Msgbox("Wrong Password!")
           Case Else
                Msgbox("Something bad happend")
      End Select
Catch ex As Exception
    MsgBox("Failed to connect.")
End Try