Вывести в листбокс информацию о видеокарте, материнской плате и свойства экрана - VB

Sub Board()
On Error Resume Next
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
    MsgBox Err.Number & ": " & Err.Description
    Exit Sub
End If
For Each objObject In objService.ExecQuery("SELECT * FROM Win32_BaseBoard")
    Print objObject.Caption 'наименование устройства
    Print objObject.Manufacturer  'производитель
    Print objObject.Product  'тип, определённый производителем
    Print objObject.SerialNumber  'серийный номер производителя
    Print objObject.Tag  'идентификатор в системе
    Print objObject.Version  'версия
Next
End Sub
 
Sub Monic()
On Error Resume Next
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
MsgBox Err.Number & ": " & Err.Description
    Exit Sub
End If
For Each objVideo In objService.ExecQuery("SELECT * FROM Win32_VideoController")
    Print objVideo.Caption 'наименование устройства
    Print objVideo.Description 'описание устройства
    Print objVideo.DeviceID 'идентификатор устройства
    Print objVideo.AdapterRAM 'размер памяти видеоадаптера
    Print objVideo.CurrentHorizontalResolution 'текущее разрешение экрана по горизонтали (точек)
    Print objVideo.CurrentVerticalResolution 'текущее разрешение экрана по вертикали (точек)
    Print objVideo.CurrentNumberOfColors 'число цветов в текущем разрешении экрана
    Print objVideo.VideoModeDescription 'текущее разрешение экрана и число цветов
    Print objVideo.CurrentBitsPerPixel 'качество цветопередачи (количество бит на пиксель)
    Print objVideo.CurrentRefreshRate 'частота обновления экрана, Гц
    Print objVideo.VideoProcessor 'описание видеопроцессора
Next
End Sub