name teks tugas 5

Private Sub Chkbold_Click()
'membuat teks tebal
If Chkbold.Value = 1 Then
 lblteks.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 chkstrikethru_Click()
'membuat teks bergaris tengah
If chkstrikethru.Value = 1 Then
 lblteks.FontStrikethru = True
 Else
 lblteks.FontStrikethru = False
 End If
End Sub

Private Sub ChkUnderline_Click()
'membuat teks bergaris bawah
If ChkUnderline.Value = 1 Then
 lblteks.FontUnderline = True
 Else
 lblteks.FontUnderline = False
 End If
End Sub

Private Sub cmdexit_Click()
End
End Sub

Private Sub Optblue_Click()
'membuat teks berwarna biru
lblteks.ForeColor = vbBlue

End Sub

Private Sub OptGreen_Click()
'membuat teks berwarna hijau
lblteks.ForeColor = vbGreen
End Sub

Private Sub optRed_Click()
'membuat teks berwarna merah
lblteks.ForeColor = vbRed

End Sub

Private Sub Optyellow_Click()
'membuat teks berwarna kuning
lblteks.ForeColor = vbYellow
End Sub