おなじやった(・∀・)

hoge.vb

Imports ServiceLibrary
'gfxSrvc.dll

Module Module1

    Sub Main()

        Dim objChild As New CDisplayConfig.CDeviceInfo
        Dim objPenent As New CDisplayConfig

        For i As UShort = 0 To 32
            Dim tmp As UInteger = 1
            Dim DevID As UInteger = tmp << i
            Dim DevID2 As UInteger = 0
            Dim DevID3 As UInteger = 0
            Dim DevID4 As UInteger = 0

            objChild.DisplayDev.U32DeviceID = DevID
            If objChild.DisplayDev.IsDFP() Then
                If objPenent.GetDisplayDeviceInfo(objChild) Then
                    If objChild.bIsDisplayLinkDevice Then
                        DevID2 = DevID2 Or tmp << i
                        MsgBox(DevID2 & 2)
                    Else
                        If objChild.bIsHDMIDevice Then
                            DevID3 = DevID3 Or tmp << i
                            MsgBox(DevID3 & 3)
                        Else
                            DevID4 = DevID4 Or tmp << i
                            MsgBox(DevID4 & 4)
                        End If
                    End If
                End If
            End If
        Next

    End Sub

End Module