Tugas 2.6

Tugas 2.6




Private Sub cmdok_Click()
lbl2.Caption = txttulis
End Sub

Private Sub cmdse_Click()
End
End Sub


Private Sub opnbi_Click()
lbl2.ForeColor = vbBlue
End Sub

Private Sub opnme_Click()
lbl2.ForeColor = vbRed
End Sub

Private Sub chkte_Click()
If chkte.Value = 1 Then
lbl2.FontBold = True
Else
lbl2.FontBold = False
End If
End Sub

Private Sub chkmi_Click()
If chkmi.Value = 1 Then
lbl2.FontItalic = True
Else
lbl2.FontItalic = False
End If

End Sub

Komentar