Private Sub about Click()'关于菜单的单击事件 frmabout show End Sub Private Sub Combo click 设置字体为下拉 列表框的文字 Text1. FontName= Combo l Text End sub Private sub combo2 Click'设置字号为下拉列 表框的文字 TextI FontSize Val( Combo2. Text) End Sub Private Sub copy Click"复制菜单 If Text1. SelLength >0 Then copy Enabled=True Clipboard SetText(TextI SelText) End If End SubPrivate Sub about_Click() '关于菜单的单击事件 frmAbout.Show End Sub Private Sub Combo1_click() '设置字体为下拉 列表框的文字 Text1.FontName = Combo1.Text End Sub Private Sub Combo2_Click() '设置字号为下拉列 表框的文字 Text1.FontSize = Val(Combo2.Text) End Sub Private Sub copy_Click() '复制菜单 If Text1.SelLength > 0 Then copy.Enabled = True Clipboard.SetText (Text1.SelText) End If End Sub