函数申明
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Type MEMORYSTATUS
        dwLength As Long
        dwMemoryLoad As Long
        dwTotalPhys As Long
        dwAvailPhys As Long
        dwTotalPageFile As Long
        dwAvailPageFile As Long
        dwTotalVirtual As Long
        dwAvailVirtual As Long
End Type
-------------------------
Dim b As String
b = Space(255)
b = GlobalMemoryStatus(dwTotalPhys)
txt2.Text = b
为什么老是报ByRef参数类型不符，意思是说传值参数类型不符吗？这儿该怎么传啊，

要如何理解才能理解成这样？
dim gms as memorystatus
gms.dwlength = len(gms)
GlobalMemoryStatus gms
txt2.text = gms.dwtotalphys

呵呵，你的那个我没有理解，不过我想到其它办法了，

dim b as memorystatus
globalmemorystatus b
txt2.text=int(b.dwtotalphys/1024/1024) & "M"