VB问题请大家帮帮我啊（好的追分啊！！！）

Option Explicit
Private Sub Command1_Click()
Dim myNCB As NCB
Dim myASTAT As ASTAT, TempASTAT As ASTAT
Dim Pastat As Long
myNCB.NCB_Command = NCBRESET
Netbios myNCB
myNCB.NCB_Command = NCBASTAT
myNCB.NCB_Lana_Num = 0
myNCB.NCB_CallName = "*"
myNCB.NCB_Len (myASTAT)
Pastat = HeapAlloc(GetProcessheap(), HEAP_GENERATE_EXCEPIONS Or HEAP_ZERO_MEMORY, myNCB.NCB_Lengh)
myNCB.NCB_Buffer = Pastat
Netbios myNCB
CopyMemory myASTAT, myNCB.NCB_Buffer, Len(myASTAT)
M_Num = Hex(myASTAT.Adapt.Adapter_Address(0)) &"- "& Hex(myASTAT.Adapt.Adapter_Address(1)) &"- "& Hex(myASTAT.Adapt.Adapter_Address(2)) &"- "& Hex(myASTAT.Adapt.Adapter_Address(3)) &"- "& Hex(myASTAT.Adapt.Adapter_Address(4)) &"- "& Hex(myASTAT.Adapt.Adapter_Address(5)) &"- "&
HeapFree GetProcessheap(), 0, Pastat
M_ReadNum = GetFromINI("zc", "zc", P_path) '读取注册

下列类型未定义:
NCB,ASTAT
你应该先定义这些类型后才能成功运行.
例如:
Type NCB
xxx as xxx
... as ...
End Type

你这些代码可能是抄过来的吧,不知道它是怎么定义的,我能力也一般,帮不了你,抱歉.你需要复制完整的源代码.

不是未定义，是那个引用没弄进去，你去部件或引用里找要用到的就可以了，转载时未有说明那你只能辛苦一下全选试试了，再不行就拉倒了！控件不全也没办法了～～

VB的问题 请大家帮帮我啊 大家好,感情问题请帮帮我!~` 好烦恼的问题,请大家进来帮帮我! VB的问题~~~基础的 大家帮帮我 关于实况9的问题 请大家帮帮我啊 我好着急啊 大家好，请大家帮帮我 解决一下单片机问题 vb大家帮帮我! 大家好,我是一明五年级的学生,我有一些英语问题,想请大家帮帮我 痛心疾首的问题,请大家帮帮我??? 请大家帮帮我，打印机的问题！！