TUGAS 2.5

Private Sub Check1_Click()
Label3.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label3.FontItalic = Check2.Value
End Sub

Private Sub Command1_Click()
Label3.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label3.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
Label3.ForeColor = vbRed
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Label3 = Text1.Text
End If
End Sub