Membuat Login Sederhana pada VB Net

Bentuk desain :

Keterangan gambar :
Label1 => (Text = User Name)
Label2 => (Text = Password)

Text1 => (Name = username)
Text2 => (Name = password)

Button1 => (Text = OK) & (Name= ok)
Button2 => (Text = Keluar) & (Name = keluar)

list program :

Public Class Form1

    Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click
        If username.Text = "Rief Dels" And password.Text = "saling berbagi" Then
            MsgBox("Wellcome")
            'MenuUtama.Show()
            Me.Hide()
        Else
            MsgBox("Maaf Username / Password Salah !")
            username.Text = ""
            password.Text = ""
        End If
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End
    End Sub

End Class

User name & Password bisa anda ganti sesuai keinginan anda.
Semoga bermanfaat.