Tugas 2.5

Private Sub blue_Click()
Label1.ForeColor = vbBlue
End Sub

Private Sub coret_Click()
If coret.Value = 1 Then
Label1.FontStrikethru = True
Else
Label1.FontStrikethru = False
End If

End Sub

Private Sub garisbawah_Click()
If garisbawah.Value = 1 Then
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If
End Sub

Private Sub hijau_Click()
Label1.ForeColor = vbGreen
End Sub

Private Sub keluar_Click()
End
End Sub

Private Sub kuning_Click()
Label1.ForeColor = vbYellow
End Sub

Private Sub merah_Click()
Label1.ForeColor = vbRed
End Sub

Private Sub miring_Click()
If miring.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
End If

End Sub


Private Sub tebal_Click()
If tebal.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If

End Sub