'Festplattengröße mit Variablen'
        Dim lwc, lwd As Integer
        lwc = Int(My.Computer.FileSystem.GetDriveInfo("C:\").TotalSize / 1024 / _
          1024 / 1024)
        lwd = Int(My.Computer.FileSystem.GetDriveInfo("D:\").TotalSize / 1024 / _
        1024 / 1024)
        Festplatte_Box.Text = lwc + lwd
 
        'RAM größe mit Variablen'
        Dim ram As Long
        ram = (My.Computer.Info.TotalPhysicalMemory) / 1024 / 1024 / 1024
        Ram_Box.Text = ram

Lebe lange und in Frieden