运行效果：

运行程序：

Private Sub Command1_Click()

    Dim num As Integer

    Text1.Text = ObjPtr(Text1)      '获取对象地址

    Text3.Text = StrPtr(Text2.Text) '获取字符串首位地址

    Text4.Text = VarPtr(num)        '获取变量地址

End Sub

总结：

object，对象；pointer，指针。

感觉不是太理解。。。