运行效果：
运行程序：
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，指针。
感觉不是太理解。。。
运行效果：
运行程序：
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，指针。
感觉不是太理解。。。
