VB 子函数指针调用来修改label1标签的内容 Private Sub Form_Load() ASS (ObjPtr(Label1)) End Sub Sub ASS(A1 As Long) Dim A As Label CopyMemory ByVal VarPtr(A), A1, 4 A.Caption = 1112 End Sub 指针函数不能弄错,不然会有出乎意料的错误