第一步：打开要添加此功能的窗体；

第二步：打开该窗体的代码编辑界面；

第三步：在代码界面的空白位置添加一个函数：

            Public Function 函数名称()

                    '要实现的代码

            End Function

第四步：选中窗体中要添加该功能的控件，在对应的事件里面写上：=函数名称()

END