tugas 2.6

Private Sub Check1_Click()

Label2.FontBold = Check1.Value

End Sub

Private Sub Check2_Click()

Label2.FontItalic = Check2.Value

End Sub

Private Sub cmdselesai_Click()

End

End Sub

Private Sub ketik_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Label2 = ketik.Text

End If

End Sub

Private Sub ok_Click()

Label2.Caption = ketik.Text

End Sub

Private Sub Option1_Click()

Label2.ForeColor = vbBlue

End Sub

Private Sub Option2_Click()

Label2.ForeColor = vbRed

End Sub