Tugas 2.6

Tugas 2.6

Source kode :

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