Открыть\закрыть вкладку модемы, считать эту вкладку - VB

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

Здравствуйте одним из трёх способов открываю вкладку модемы

'control.exe — служит для работы с панелью управления
'telephon.cpl — оснастка панели управления для телефонии
'1 — номер вкладки, которую нужно активировать при открытии (отсчет с нуля)
Shell "control.exe telephon.cpl,,1"
 
'можно и так сразу открывается вторая вкладка
Shell "control.exe modem.cpl"
 
'MyID - идентификатор процесса
MyID = Shell("rundll32.exe shell32.dll, Control_RunDLL modem.cpl, Modems", vbNormalFocus)

как её считать и поместить в picturebox, это возможно? как закрыть эту вкладку? Подскажите код Спасибо

открыли - закрыли вкладку

Option Explicit
 
Private Declare Function GetForegroundWindow Lib "user32" () As Long
'
Sub OpenОткрыть_вкладку_модемы()
 
'отключаем дёргание экрана при выполнении кода
  Application.ScreenUpdating = False
 
  '1
  'control.exe — служит для работы с панелью управления
  'telephon.cpl — оснастка панели управления для телефонии
  '1 — номер вкладки, которую нужно активировать при открытии (отсчет с нуля)
  'Shell "control.exe telephon.cpl,,1"
 
  '2
  'можно и так сразу открывается вторая вкладка
  'Shell "control.exe modem.cpl"
 
  '3
  Shell "rundll32.exe shell32.dll, Control_RunDLL modem.cpl, Modems", vbNormalFocus
 
  'MyID - идентификатор процесса
  'MyID = Shell("rundll32.exe shell32.dll, Control_RunDLL modem.cpl, Modems", vbNormalFocus)
 
  'закрыть вкладку
  SendMessage GetForegroundWindow, &H10, 0&, 0&
 
  'отменяем отключенное ранее дёргание экрана при выполнении кода
  Application.ScreenUpdating = True
 
End Sub

можно это сделать "втёмную", как считать вкладку между открытием и закрытием и поместить её в picturebox?, это возможно? Подскажите код

после того или перед тем или во время того (как правильно уж не знаю) одним словом появляющееся окно модемы можно и как указать, чтобы оно отображалось в нужном месте на экране?

Решение задачи: «Открыть\закрыть вкладку модемы, считать эту вкладку»

textual
                            Листинг программы 
                        
                            Sub Все_модемы()
 
    On Error Resume Next
 
    Dim strComputer As String
    strComputer = "."
 
    Dim objWMIService As Object
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
    Dim colItems As Object
    Set colItems = objWMIService.ExecQuery("Select * from Win32_POTSModem")
 
    Dim objItem As Object
 
    Dim Количество_модемов As Byte
    Dim Результат As String
 
    Selection.EndKey Unit:=wdStory
 
    For Each objItem In colItems
        Количество_модемов = Количество_модемов + 1
        
        Результат = Результат & Количество_модемов & " " & objItem.Model & " - " & objItem.AttachedTo & Chr$(13)
 
    Next
 
    MsgBox$ "Количество модемов: " & Количество_модемов & Chr$(13) & Результат
 
End Sub