The SysInfo Control

The following example uses a sysInfo control on a form and displays the properties of the system in a listbox.
Private Sub Form_Load()
On Error Resume Next
MsgBox "Sysinfo1.Index: " & SysInfo1.Index
If Err Then
MsgBox "" & Err.Description & Err.Number
End If
List1.AddItem "SysInfo1.OSBuild: " & SysInfo1.OSBuild
List1.AddItem "SysInfo1.BatteryFullTime: " & SysInfo1.BatteryFullTime
List1.AddItem "SysInfo1.ACStatus: " & SysInfo1.ACStatus
List1.AddItem "SysInfo1.BatteryLifePercent: " & SysInfo1.BatteryLifePercent
List1.AddItem "SysInfo1.BatteryLifeTime: " & SysInfo1.BatteryLifeTime
List1.AddItem "SysInfo1.BatteryStatus: " & SysInfo1.BatteryStatus
List1.AddItem "SysInfo1.Name: " & SysInfo1.Name
List1.AddItem "SysInfo1.Object: " & SysInfo1.Object
List1.AddItem "SysInfo1.OSPlatform: " & SysInfo1.OSPlatform
List1.AddItem "Sysinfo1.OSVersion: " & SysInfo1.OSVersion
List1.AddItem "Sysinfo1.Parent: " & SysInfo1.Parent
List1.AddItem "Sysinfo1.scrollbarsize: " & SysInfo1.ScrollBarSize
End Sub