Tugas1

wawan 2

Private Sub checkbold_Click()
If Checkbold.Value = 1 Then
Labeltext.FontBold = True
Else
Labeltext.FontBold = False
End If
End Sub

Private Sub checkitalic_Click()
If Checkitalic.Value = 1 Then
Labeltext.FontItalic = True
Else
Labeltext.FontItalic = False
End If
End Sub

Private Sub checkstrike_Click()
If Checkstrike.Value = 1 Then
Labeltext.FontStrikethru = True
Else
Labeltext.FontStrikethru = False
End If
End Sub

Private Sub checkunder_Click()
If Checkunder.Value = 1 Then
Labeltext.FontUnderline = True
Else
Labeltext.FontUnderline = False
End If
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub optblue_Click()
Labeltext.ForeColor = vbBlue
End Sub

Private Sub optgreen_Click()
Labeltext.ForeColor = vbGreen
End Sub

Private Sub optred_Click()
Labeltext.ForeColor = vbRed
End Sub

Private Sub optyellow_Click()
Labeltext.ForeColor = vbYellow

End Sub

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s