microsoft visual basic 60

 

Private Sub chkstrikeout_Click()

‘Membuat teks garis tengah

If ChkStrike.Value = 1 Then

lblteks.Fontstrikeout = True

Else

lblteks.Fontstrikeout = False

End If

End Sub

 

Private Sub chkunderline_Click()

‘Membuat teks garis bawah

If ChkUnder.Value = 1 Then

lblteks.Fontunder = True

Else

lblteks.Fontunder = False

End If

End Sub

 

Private Sub chkBold_Click()

‘Membuat teks Tebal

If ChkBold.Value = 1 Then

lbltext.FontBold = True

Else

lblteks.FontBold = False

End If

End Sub

 

Private Sub chkitalic_Click()

‘membuat teks miring

If ChkItalic.Value = 1 Then

lblteks.FontItalic = True

Else

lblteks.FontItalic = False

End If

End Sub

 

 

 

Private Sub optyellow_Click()

‘membuat teks berwarna kuning

lblteks.ForeColor = vbYellow

End Sub

 

 

 

 

Private Sub optgreen_Click()

‘membuat teks berwarna hijau

lblteks.ForeColor = vbGreen

End Sub

Private Sub optblue_Click()

‘Membuat teks berwarna biru

lblteks.ForeColor = vbBlue

End Sub

 

Private Sub optRed_Click()

‘Membuat teks bewarna merah

lblteks.ForeColor = vbRed

End Sub

 

Private Sub cmdexit_Click()

End

End Sub