Source Programnya : Source Programnya :   Public Class Form1     Private Sub btnnama_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnama.Click        If nama.Text = "ismail" And password.Text = "ismail" Then            FormMenu.Show()           

Soucre Pgrogram: Public Class Form1      Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged         Dim x As String        tahunmasuk.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)         x = Microsoft.VisualBasic.Mid(npm.Text,