vb6没有short类型，只有integer(Int16),long(Int32)
vb.net有short(Int16),integer(Int32),long(Int64)
所以，注意转换。
另外，ByRef： 传地址；ByVal：传值