Tugas 2.6

 

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

Private Sub cmdselesai_Click()
End
End Sub

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

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

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

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

Private Sub chkt_Click()
If chkt.Value = 1 Then
lbl2.FontBold = True
Else
lbl2.FontBold = 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 chkgb_Click()
If chkgb.Value = 1 Then
lbl2.FontUnderline = True
Else
lbl2.FontUnderline = False
End If
End Sub