Você quer fazer o login pelo site? ou usar um banco de dados seu (MYSQL) para logar?
Dim dr As MySqlDataReader = Nothing
Try
conn.Open()
'Aqui embaixo você faz o select dos seus usuarios
Dim sql As String = "select * from usuario where usuario=? and senha=?"
Dim cmd As MySqlCommand = New MySqlCommand(sql, conn)
cmd.Parameters.AddWithValue("@usuario", UsernameTextBox.Text)
cmd.Parameters.AddWithValue("@senha", PasswordTextBox.Text)
dr = cmd.ExecuteReader()
'Verifica se tem algum retorno igual ao login se iver abre o formularo
If dr.HasRows Then
dr.Read()
login = dr.Item("usuario")
senha = dr.Item("senha")
Hide()
F_principal.Show()
Else
MsgBox("Usuario ou senha incorretos", vbCritical, Title:="Error")
End If
Catch ex As Exception
MsgBox(ex.Message, Title:="Error")
Finally
conn.Close()
End Try