Syntax Program
Private Sub Check1_Click()
Label.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label.FontItalic = Check1.Value
End Sub

Private Sub Check3_Click()
Label.FontUnderline = Check1.Value
End Sub

Private Sub Check4_Click()
Label.FontStrikethru = Check1.Value
End Sub

Private Sub CmdOk_Click()
Label.Caption = TxtNama.Text
End Sub

Private Sub CmdSelesai_Click()
End
End Sub

Private Sub Option1_Click()
Label.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
Label.ForeColor = vbRed
End Sub

Private Sub Option3_Click()
Label.ForeColor = vbYellow
End Sub

Private Sub Option4_Click()
Label.ForeColor = vbGreen
End Sub