1. Pertama tama buat form dengan nama frmLogin seperti dibawah ini.
  2. Kemudian klik `Project - Login propertis - setting` sampai tampil seperti dibawah ini.
  3. Buat form lagi dengan nama `frmMain` ysng bertujuan ketika kita telah login form ini yang akan tampil kemudian.
  4. Untuk Codingan yang terdapat di dalam `frmLogin`

 

 Public Class frmLogin

    Private Sub bLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLogin.Click
        If txtUsername.Text = My.Settings.Username And
            txtPassword.Text = My.Settings.Password Then
            frmMain.Show()
            Me.Hide()
        Else
            MsgBox("Username tidak ditemukan!", MsgBoxStyle.Information, "Error")
        End If
    End Sub

    Private Sub txtUsername_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtUsername.KeyDown, txtPassword.KeyDown, bLogin.KeyDown, bCreate.KeyDown
        If e.KeyCode = Keys.Enter Then
            SelectNextControl(sender, True, True, True, True)
        End If
    End Sub


    Private Sub bCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bCreate.Click
        My.Settings.Username = txtUsername.Text
        My.Settings.Password = txtPassword.Text
        My.Settings.Save()
        MsgBox("Create account!", MsgBoxStyle.Information, "Create")
        txtUsername.Text = ""
        txtPassword.Text = ""
        Me.Hide()
        Me.Show()
    End Sub
End Class