Tugas 2.6

Private Sub chkgb_Click()
If chkgb.Value = 1 Then
lbl2.FontUnderline = True
Else
lbl2.FontUnderline = False
End If
End Sub

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

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

Private Sub ok_Click()
lbl2.Caption = txtsesuatu.Text
End Sub

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

Private Sub opng_Click()
lbl2.ForeColor = vbGreen
End Sub

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

Private Sub opny_Click()
lbl2.ForeColor = vbYellow
End Sub

Private Sub selesai_Click()
End
End Sub