Private Sub close_Click() Text1.Text = "" Close #1 End Sub Private Sub Color_Click() CommonDialog1.ShowColor Text1.ForeColor = CommonDialog1.Color End Sub Private Sub F7_Click() Clipboard.GetData Text1.Text Text1.Text = "" End Sub Private Sub F8_Click() Clipboard.SetText (Text1.Text) End Sub Private Sub F9_Click() Text1.Text = Clipboard.GetText End Sub Private Sub Font_Click() CommonDialog1.Flags = 1 CommonDialog1.ShowFont Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize End Sub