Thank you,

It is actually all needed code? wrote and compile but doesn't display any results, isn't supposed to display any info on screen??

procedure RamSpeed
*-- returns the speed of each of the ram chips
LOCAL lcResult
lcResult = []
IF VERSION(5)>600
LOCAL loWMI, oItems, oItem
loWMI = GETOBJECT("winmgmts:\\.\root\cimv2")
oItems = loWMI.ExecQuery("select * from Win32_PhysicalMemory")

FOR EACH oItem IN oItems
lcResult = lcResult + TRANSFORM(oItem.Speed)+CHR(13)+CHR(10)
ENDFOR
ENDIF
RETURN lcResult
endproc