Find antal ram

Hej,

Dette skulle virke. bare copy - paste ind i en ny form med Label1.

Option Explicit

Private Type MEMORYSTATUS
    Length            As Long
    MemoryLoad        As Long
    TotalPhys        As Long
    AvailPhys        As Long
    TotalPageFile    As Long
    AvailPageFile    As Long
    TotalVirtual      As Long
    AvailVirtual      As Long
End Type

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (memory As MEMORYSTATUS)

Private Sub Form_Load()

  Label1.Caption = GetPhysicalMemoryTotal

End Sub

Private Function GetPhysicalMemoryTotal() As String

  Dim memory As MEMORYSTATUS
   
    GlobalMemoryStatus memory
   
    GetPhysicalMemoryTotal = Format(memory.TotalPhys \ 1024, "###,###,###")
 
End Function

Takker!