Получить название монитора и его серийный номер - Visual Basic .NET

Формулировка задачи:

Доброе время суток. Подскажите пожалуйста, как получить название монитора и его серийный номер ? Наткнулся тут на статью только написанной на C# а мне надо на visual basic помогите кто нибудь пожалуйста.

Решение задачи: «Получить название монитора и его серийный номер»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Form_Load()
    Dim strComputer, objWMIService, colItems, objItem
    
    strComputer = "."
    
    Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate,authenticationLevel=Pkt}!\" _
      & strComputer & "\root\wmi")
    
    Set colItems = objWMIService.ExecQuery _
      ("SELECT * FROM WMIMonitorID")
    
    For Each objItem In colItems
        Debug.Print MakeString(objItem.SerialNumberID)
    Next
    
End Sub
 
Private Function MakeString(v) As String
    Dim i As Long
    
    For i = LBound(v) To UBound(v)
        MakeString = MakeString & Chr$(v(i))
    Next
    
End Function
                        