About

INDAH AMELIA

Minggu, 29 Januari 2012

Jawaban SOAL 3 (Indah amelia Barus)

Kasus : Klik Disini
Public Class form_Login
    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Close()
    End Sub

    Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
        If user.Text = "Indah" And pwd.Text = "amelia" Then
            Form_Menu.Show()
            Me.Hide()
        Else
            MsgBox("MaaF! PAsword Salah!")
            user.Text = ""
            pwd.Text = ""
        End If
    End Sub

0 komentar:

Posting Komentar