用VB编写记事本简单程序

代码如下：

Private Sub Command1_Click()      '复制

Clipboard.SetText Text1.SelText

End Sub

Private Sub Command2_Click()   '剪切

Clipboard.SetText Text1.SelText

Text1.SelText = ""

End Sub

Private Sub Command3_Click()     '粘贴

Text1.SelText = Clipboard.GetText()

End Sub

Private Sub Command4_Click()       '删除

Text1.SelText = ""

End Sub

Private Sub Form_Load()

Form1.BorderStyle = 1

Command1.Caption = "复制"

Command2.Caption = "剪切"

Command3.Caption = "粘贴"

Command4.Caption = "删除"

End Sub

用RichTextBox控件

参考 有功能代码
http://www.enet.com.cn/article/2004/0319/A20040319295920.shtml