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 chkItalic.Value = 1 Then
                              lblTeks.FontItalic = True
                              Else
                              lblTeks.FontItalic = False
                              End If
                              End Sub

                              Private Sub chkStrike_Click()
                              If chkStrike.Value = 1 Then
                              lblTeks.FontStrikethru = True
                              Else
                              lblTeks.FontStrikethru = False
                              End If
                              End Sub

                              Private Sub chkUnder_Click()
                              If chkUnder.Value = 1 Then
                              lblTeks.FontUnderline = True
                              Else
                              lblTeks.FontUnderline = False
                              End If
                              End Sub

                              Private Sub cmdExit_Click()
                              Unload Me
                              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