一楼献给国家
Public Sub Form_Open()
Dim ddd As Integer = 9
TextArea1.Text &= "我的PID --> " & getgid() & Chr(13)
p = VarPtr(ddd)
tmp = Addp(p)
TextArea1.Text &= tmp & Chr(13)
TextArea1.Text &= Add(4, 5) & Chr(13)
p = pAdd(22, 33)
TextArea1.Text &= p & Chr(13
TextArea1.Text &= Integer@(p) & Chr(13
End
Public Sub Form_Open()
Dim ddd As Integer = 9
TextArea1.Text &= "我的PID --> " & getgid() & Chr(13)
p = VarPtr(ddd)
tmp = Addp(p)
TextArea1.Text &= tmp & Chr(13)
TextArea1.Text &= Add(4, 5) & Chr(13)
p = pAdd(22, 33)
TextArea1.Text &= p & Chr(13
TextArea1.Text &= Integer@(p) & Chr(13
End