Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim keterangan As String
If TextBox1.Text >= 60 Then
keterangan = "Selamat Anda Lulus"
Else
keterangan = "Mohon Maaf Anda Belum Lulus"
End If
TextBox2.Text = keterangan
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")
If pesan = vbYes Then
End
End If
End Sub
End Class

Tidak ada komentar:
Posting Komentar