這裡給寫了點程式碼，申請的記憶體返回的是指標（long)在VB裡面是沒有辦法直接控制的，不過你可以把它傳給API。Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As LongPrivate Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As LongPrivate Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As LongPrivate Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As LongPrivate Sub Form_Load()mySubEnd SubPrivate Sub mySub()lm1 = GlobalAlloc(GMEM_MOVEABLE, 1024 * 3) """""""分配記憶體！！！！MsgBox lm1lm2 = GlobalLock(lm1)lm3 = GlobalUnlock(lm1) """"""""""""""""""""""釋放記憶體MsgBox lm3lm4 = GlobalFree(lm1)MsgBox lm4End Sub