Sub CamBaumAufbauen()
    Dim Di As DeviceInfo
    Dim Dv As Device
    Dim Knoten As Node
    tvBilder.Nodes.Clear
'---------------------------------------
    ' Geräte durchlaufen
    For Each Di In WiaManager.DeviceInfos
        Set Dv = Di.Connect
        If Not Dv Is Nothing Then
            Set Knoten = tvBilder.Nodes.Add(Text:=Di.Properties("Name").Value)
            Set Knoten.Tag = Dv
 
            EnumChildren Dv.Items, Knoten  ' alle Bilder durchlaufen
        End If
    Next
End Sub