Hi, I'm using Win32_PhysicalMemory to get RAM info and output to a treeview. Ito ang meron ako ngayon

Pero gusto ko sana ganito specially for multiple ram modules
Patulong po sa code ko, Thanks in advance
Sub memory()
Try
Dim MyOBJ As Object
Dim RAM As Object
MyOBJ = GetObject("WinMgmts:").instancesof("Win32_PhysicalMemory")
Dim Memory = New TreeNode("Memory")
TreeView1.Nodes.Add(Memory)
For Each RAM In MyOBJ
TreeView1.Nodes(1).Nodes.Add(New TreeNode(RAM.name & " - Size: " & FormatBytes(RAM.Capacity) & " - Speed: " & RAM.Speed & "MHz"))
Next
Catch ex As Exception
MsgBox("Error on Win32_PhysicalMemory " & ex.Message)
End Try
End Sub

Pero gusto ko sana ganito specially for multiple ram modules
Patulong po sa code ko, Thanks in advance
Sub memory()
Try
Dim MyOBJ As Object
Dim RAM As Object
MyOBJ = GetObject("WinMgmts:").instancesof("Win32_PhysicalMemory")
Dim Memory = New TreeNode("Memory")
TreeView1.Nodes.Add(Memory)
For Each RAM In MyOBJ
TreeView1.Nodes(1).Nodes.Add(New TreeNode(RAM.name & " - Size: " & FormatBytes(RAM.Capacity) & " - Speed: " & RAM.Speed & "MHz"))
Next
Catch ex As Exception
MsgBox("Error on Win32_PhysicalMemory " & ex.Message)
End Try
End Sub