Tugas 5.Vb

Private Sub merah_Click ()
Label1.ForeColor=vbRed

End sub

Private Sub Optblue_Click ()
Label1.ForeColor=vbBlue

End sub

Private Sub Optgreen_Click ()
Label1.ForeColor=vbGreen

End sub

Private Sub Optyellow_Click ()
Label1.ForeColor=vbyellow

End sub

Private Sub chkbold_Click ()
If chkbold.value=1then
Label1.fontBold=TrueElse
Label1.FontBold=False
End if

End sub



Private Sub chkitalic_Click ()
If chkitalic.value=1then
Label1.Fontitalic=TrueElse
Label1.Fontitalic=False
End if

End sub


Private SubChkstrikeout_Click ()
If chkstrikeout.value=1then
Label1.FontStrikethru=TrueElse
Label1.Fontstrikethru=false
End if

End sub

Private Sub chkUnderline_Click ()
If chkunderline.value=1then
Label1.fontUnderline=TrueElse
Label1.Fontunderline=False
End if

End Sub

Private Sub Command1_Click ()
End

End Sub