复制按钮的点击事件： 

Private Sub CmdCopy_Click()
Clipboard.SetText TxtContent.SelText
End Sub

粘贴按钮的点击事件：

Private Sub CmdPaste_Click()
TxtContent.SelText = Clipboard.GetText
End Sub

清空按钮的点击事件：

Private Sub CmdClear_Click()
TxtContent.Text = ""
End Sub

退出程序按钮的点击事件：

Private Sub CmdQuit_Click()
End　　　'End 在 VB 中，代表程序结束，用它可以直接退出程序。
End Sub

标签控件（Label）的主要事件：
所谓的事件，其实就是用户对应用程序的操作，如第一章中用鼠标点击命令按钮触发的 Click 事件。

事件的作用在于触发程序的执行，如第一章中的 Click 事件改变了标签控件的 Caption 属性。

标签控件的主要作用在于显示文本信息，但也支持一些为数不多的事件。

1、Click 事件（鼠标单击）：
用鼠标点击标签时触发的事件，如改变标签的字体属性：

Private Sub LblShow_Click()
LblShow.FontName = "隶书"
End Sub

2、DbClick 事件（鼠标双击）：
鼠标双击引发的事件，如改变标签的可见性：

Private Sub LblShow_DbClick()
LblShow.Visible = False
End Sub