Nama : Nurafifah Dwi Putri Aulia Npm : 15116567 Kelas : 1ka03 Private Sub Timer1_Timer() Form3.Show Unload Me End Sub Private Sub Command1_Click() Form6.Show 'Menampilkan Form6 ketika Command Button diklik. Unload Me 'Menutup Form3 ketika Form6 terbuka End Sub Private Sub Command2_Click() Form5.Show 'Menampilkan form5 ketika command button diklik. Unload Me 'menutup form3 ketika form5 terbuka End Sub Private Sub Command1_Click() Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = Text3.Text Adodc1.Recordset.Fields(1) = Text1.Text Adodc1.Recordset.Fields(2) = Text4.Text Adodc1.Recordset.Fields(3) = Text5.Text Adodc1.Recordset.Update MsgBox ("Silakan Login"), vbInformation, "WARNING!" End Sub Private Sub Command2_Click() Form3.Show 'Menampilkan form3 ketika command button diklik. Unload Me 'menutup form6 ketika form3 t...