Tugas 2.6

Tugas 2.6

 

Sourrce Codenya:

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

'17100003 renaldi zainal arifin

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