Listing Program Laporan Akhir Pengenalan Visual Basic

berikut ini adalah Listing Program Laporan Akhir  Pengenalan Visual Basic


FORM:

Private Sub Check1_Click()

Label3.FontBold = True

End Sub

Private Sub Check2_Click()

Label3.FontItalic = True

End Sub

Private Sub Command1_Click()

Label3.Caption = Text1.Text + " " + Text2.Text

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Command2_Click()

Label3.Caption = ""

Label3.FontBold = False

Label3.FontItalic = False

Check1.Value = False

Check2.Value = False

Option1.Value = False

Option2.Value = False

Option3.Value = False

Option4.Value = False

Label3.ForeColor = vbBlack

End Sub

Private Sub Command3_Click()

Unload Me

MDIForm1.Show

End Sub

Private Sub Option1_Click()

Label3.ForeColor = vbRed

End Sub

Private Sub Option2_Click()

Label3.ForeColor = vbBlue

End Sub

Private Sub Option3_Click()

Label3.ForeColor = vbYellow

End Sub

Private Sub Option4_Click()

Label3.ForeColor = vbCyan

End Sub

MDI FORM:

Private Sub ex_Click()

End

End Sub