Merhaba;

winmm.dll dosyasını kullanarak mikrofon ve hoparlör aygıtını ComboBox ta gösterip seçmek ve bunları TrackBar veya ComboBox ile ses değerlerini değiştirmek istiyorum. Birsürü kaynak kurcaladım fakat sonuca ulaşamadım.
Ekran Görüntüsü

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Integer) As Integer
    Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

    Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Integer, ByVal dwVolume As Integer) As Integer
    Declare Function waveOutGetVolume Lib "winmm.dll" Alias "waveOutGetVolume" (ByVal wDeviceID As Integer, ByRef lpdwvolume As Integer) As Integer
  
    Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long 'ses kartı bilgisi

    Declare Function mixerSetControlDetails Lib "winmm.dll" (ByVal hmxobj As IntPtr, ByVal pmxcd As AudioMixerHelper.MIXERCONTROLDETAILS, ByVal fdwDetails As Integer) As Integer
  
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        sesaygitlariniyukle()
        Label2.Text = "Ses Kartı :" & seskartivarmi()


    End Sub
    Function seskartivarmi() As Boolean
        Dim rtn As Long
        rtn = waveOutGetNumDevs() 'ses kartı var mı diye kontrol et. True/False Değeri Veriyor.
        seskartivarmi = rtn > 0
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Button2.Enabled = True
        mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
        mciSendString("record recsound", "", 0, 0)
        Label1.Text = "Kaydediliyor.."
        Label1.Visible = True

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Button1.Enabled = True
        Button2.Enabled = False
        Button3.Enabled = True
        mciSendString("save recsound recsound.wav", "", 0, 0)
        mciSendString("close recsound", "", 0, 0)
        MsgBox("Dosya Oluşturuldu: recsound.wav")
        Label1.Text = "Durduruluyor.."
        Label1.Visible = False
        My.Computer.Audio.Stop()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Label1.Text = "Oynatılıyor.."
        Label1.Visible = True
        My.Computer.Audio.Play("recsound.wav", AudioPlayMode.Background)

    End Sub

    Private Sub sesaygitlariniyukle()

    End Sub

Cevaplarınız için şimdiden teşekkürler.