隐藏的实例参数传递给
Type或
Class中的非静态成员函数,
语法
This.fieldname 
or 
With This
.fieldname 
End With
说明
例子
Type sometype
    Declare Sub MyCall()
    value As Integer
End Type
Dim example As sometype
''将元素测试设置为0
example.value = 0
Print example.value
example.MyCall()
''输出现在应该是10
Print example.value
End 0
Sub sometype.MyCall()
    This.value = 10
End Sub
 与QB差别
参考