1、打开VB6.0，新建一个工程，在窗体中添加一个命令按钮，caption分别改为“调用函数”，将窗体Form1的caption属性改为“VB6.0自定义函数”，将界面设置成下图：
2、双击窗体Form1，进入代码编辑窗口，单击左侧下拉三角形，选择通用。
3、在通用段输入如下代码：
Public Sub F1(n%, ByVal m%)
n = n Mod 10
m = m \ 10
End Sub
并将Form_Load事件删除。
以上代码就定义了函数F1，其中包括两个参数，类型均是整型，%表示 短整型，Byval表明了值传递方式，表示值传递，与地址传递相对应。这也是默认的传递方式。
4、双击“调用函数”命令按钮，进入代码编辑窗口，输入如下代码：
Dim x%, y%
x = 12: y = 34
Call F1(x, y)
Print x, y
yongcall进行函数的调用，参数与自定义函数中参数一一对应。
5、关闭代码窗口，按下F5运行程序，单击“调用函数”命令按钮，在窗体中打印输出2 34，可以自己想下为什么是这个结果，这个结果和函数的值传递方式有关，如图：
