Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim s As String = "Physischer Speicher : " & _
        My.Computer.Info.TotalPhysicalMemory & vbNewLine
        s &= "Davon noch frei : " & My.Computer.Info.AvailablePhysicalMemory & _
        vbNewLine
        s &= "Virtueller Speicher : " & My.Computer.Info.TotalVirtualMemory & _
        vbNewLine
        s &= "Davon noch frei : " & My.Computer.Info.AvailableVirtualMemory & _
        vbNewLine
        MsgBox(s)
End Sub