Project MIDI Form:
Private Sub keluar_Click()
A = MsgBox(“APAKAH ANDA YAKIN INGIN KELUAR????”, vbYesNo, “PERINGATAN”)
If A = 6 Then
End
Else
mainmenu.Show
End If
End Sub
Private Sub pratikum1_Click()
uPratikum1.Show
End Sub
Private Sub pratikum10_Click()
uPratikum10.Show
End Sub
Private Sub pratikum11_Click()
uPratikum11.Show
End Sub
Private Sub pratikum2_Click()
uPratikum2.Show
End Sub
Private Sub pratikum3_Click()
uPratikum3.Show
End Sub
Private Sub pratikum4_Click()
uPratikum4.Show
End Sub
Private Sub pratikum5_Click()
uPratikum5.Show
End Sub
Private Sub pratikum6_Click()
uPratikum6.Show
End Sub
Private Sub pratikum7_Click()
uPratikum7.Show
End Sub
Private Sub pratikum8_Click()
uPratikum8.Show
End Sub
Private Sub pratikum9_Click()
uPratikum9.Show
End Sub