Tugas 2.6

Private Sub Check2_Click()

End Sub


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

Private Sub chkm_Click()
If chkm.Value = 1 Then
Label2.FontItalic = True
Else
Label2.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
17100031 TUTI MULYANI


Private Sub cmdok_Click()
lbl2.Coption = txtsesuatu.Text
End Sub


Private Sub cmdselesai_Click()
End
End Sub

Private Sub Command2_Click()
Label2.Caption = Text1.Text
End Sub

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

Private Sub opnh_Click()
Label2.ForeColor = vbGreen
End Sub

Private Sub opnk_Click()
Label2.ForeColor = vbYellow
End Sub

Private Sub opnm_Click()
Label2.ForeColor = vbRed
End Sub

Private Sub Text1_Change()

End Sub