Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click form2.Show() Me.Hide() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim x = MsgBox('Are You Sure?' , MsgBoxStyle.YesNo + MsgBoxStyle.Question, 'Confirmation') If x = vbYes Then Me.Close() form2.Close() Form3.Close() 'End End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Form4.Show() Me.Hide() End Sub End Class. Public Class form2 Dim id, pw Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Form1.Show() Me.Close() End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click id = TextBox1.Text = 'admin' pw = TextBox2. Honda Water Pump Repair Manual. Text = '123456' If id = True And pw = True Then Form3.Show() Me.Close() Else id = False Or pw = False MessageBox.Show('ID ATAU PASSWORD YANG ANDA MASUKAN SALAH! Eternity Invading Time By Renny Mclean Pdf. !' , 'Warning', MessageBoxButtons.OK) TextBox1.Focus() TextBox1.Clear() TextBox2.Clear() End If End Sub End Class. Public Class Form3 Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click MessageBox.Show('See You Next Time', ' ', MessageBoxButtons.OK) Me.Close() Form1.Show() 'End End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Form10.Show() Me.Hide() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Form11.Show() Me.Hide() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Form7.Show() Me.Hide() End Sub End Class.