主题：[求助]关于封装函数的问题

一函数，名为EditUser，代码：

'''编辑用户信息
Dim id As String = Args(0)  '''用户ID
Vars("EditUserID") = id
Forms("修改用户").Open
Vars("EditUserID") = ""

问题：如何封装？就像FT的OpenQQ中的消息窗口。

谢谢