warna

sfi5

Private Sub chkbold_Click()

If chkbold.Value = 1 Then

lblteks.FontBold = True

Else

lblteks.FontBold = False

End If

End Sub

 

Private Sub chkitalic_Click()

If chkbold.Value = 1 Then

lblteks.FontItalic = True

Else

lblteks.FontItalic = False

End If

End Sub

 

 

 

Private Sub chkstrikeout_Click()

If chkbold.Value = 1 Then

lblteks.FontStrikethru = True

Else

lblteks.FontStrikethru = False

End If

End Sub

 

Private Sub chkunder_Click()

If chkbold.Value = 1 Then

lblteks.FontUnderline = True

Else

lblteks.FontUnderline = False

End If

End Sub

 

Private Sub cmdexit_Click()

Unload Me

End Sub

 

Private Sub frfont_DragDrop(Source As Control, X As Single, Y As Single)

 

End Sub

 

Private Sub optblue_Click()

lblteks.ForeColor = vbBlue

End Sub

 

Private Sub optgreen_Click()

lblteks.ForeColor = vbGreen

End Sub

 

Private Sub optred_Click()

lblteks.ForeColor = vbRed

End Sub

 

Private Sub optyellow_Click()

lblteks.ForeColor = vbYellow

End Sub

 

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 )

Twitter picture

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

Facebook photo

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

Google+ photo

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

Connecting to %s