Cara Membuat Login Dengan Visual Studio 2008

Public Class Form1

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

    Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click
        If nama.Text = "dimas" And pasword.Text = "123" Then
            Me.Hide()
        Else
            MsgBox("Perhatikan Pasword Anda")
            nama.Text = ""
            pasword.Text = ""
        End If
    End Sub
End Class

Maka Akan Tampil Seperti Gambar Berikut :