lia tugas 2

program2

Private Sub chkBold_Click()

Label2.FontBold = chkBold.Value

End Sub

Private Sub chkItalic_Click()

Label2.FontItalic = chkItalic.Value

End Sub

Private Sub chkStrike_Click()

Label2.FontStrikethru = chkStrike.Value

End Sub

Private Sub chkUnder_Click()

Label2.FontUnderline = chkUnder.Value

End Sub

Private Sub Command1_Click()

Label2.Caption = Text1.Text

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub optblue_Click()

Label2.ForeColor = vbBlue

End Sub

Private Sub optgreen_Click()

Label2.ForeColor = vbGreen

End Sub

Private Sub optred_Click()

Label2.ForeColor = vbRed

End Sub

Private Sub optyellow_Click()

Label2.ForeColor = vbYellow

End Sub

Iklan