Ein Programm, dass mein Audio Output Device ändert.

Hallo Admins,

ich wollte mal hören ob mir jemand evtl. einen Denkanstoß geben könnte.
Und zwar geht es darum, dass ich gerne mit Hillfe von Visual Basic 2008 ein Programm schreiben möchte welches mein Wiedergabegerät ändert. Zur Zeit habe ich: 2.1 System über Klinke angeschlossen, Bluetooth-Headset über USB angeschlossen und einen LED-TV über HDMI angeschlossen.
Jetzt muss ich jedesmal wenn ich an meinem PC über den TV einen Film schaue, über Teamspeak mit meinem Headset rede oder über meine Lautsprecher Musik höre eine Reihe von nervigen Klicks durchführen, was mir irgendwie nervt.
Ich habe mir schon Scripte geschrieben die das mit einem Doppelklick erledigen, aber ich hätte ganz gerne ein Programm, das ich in VB2008 schreiben möchte, welches sich schnell öffnet und mit dessen Hilfe ich diese Änderungen vornehmen kann.
Also es muss meine angeschlossenen Geräte erkennen und sie müssen durch einen Klick ausgewählt werden.

Ich weiß nicht ob ich das überhaupt mit Visual Basic hinbekomme, doch falls ja, was muss ich beachten? Kann mir jemand sagen wie ich anfange oder welche Syntax ich mir Präziser anschauen soll?

Ich bin für jedes Kommentar und alle Bemerkungen sehr dankbar.

Vielen Dank schonmal im voraus. Falls ich irgendwo her Tipps oder andere Hilfe bekomme, poste ich diese selbstverständlich hier.


MfG,

Sudden

Imports Microsoft.DirectX
Imports Microsoft.DirectX.DirectSound

Class Form1

  Private myDevices As DevicesCollection = Nothing 
  Private Structure myDeviceDescription
        Public info As DeviceInformation
        Public Overrides Function ToString() As String
            Return info.Description
        End Function
        Public Sub New(ByVal di As DeviceInformation)
            info = di
        End Sub
  End Structure

  Public Sub loadDevices()
        myDevices = New DevicesCollection()
        For Each dev As DeviceInformation In myDevices
           MsgBox (dev.Description)
        Next
  End Sub

  Public Function selectDevice(ByVal nr as integer)
        Dim DsDevice as Directsound.Device
        DsDevice = New Device(myDevices(nr).DriverGuid)
        DsDevice.SetCooperativeLevel(Me, CooperativeLevel.Priority)
  End Function

End Class