[abo ragab]

كود :

​
Imports NAudio.CoreAudioApi
Imports NAudio.Wave
Partial Public Class Form1
   Dim waveIn = New WaveIn()
   Public Sub New()
       InitializeComponent()
       Dim de As MMDeviceEnumerator = New MMDeviceEnumerator()
       Dim device = de.EnumerateAudioEndPoints(DataFlow.All, DeviceState.Active)
       ComboBox1.Items.AddRange(device.ToArray())
   End Sub
   Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick
       If ComboBox1.SelectedItem IsNot Nothing Then
           Dim device = CType(ComboBox1.SelectedItem, MMDevice)
           ProgressBar1.Value = CInt(Math.Round(device.AudioMeterInformation.MasterPeakValue * 100))
           Label1.Text = Math.Round(device.AudioMeterInformation.MasterPeakValue * 100).ToString()
       End If
   End Sub
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Timer1.Start()
       waveIn.StartRecording()
       ComboBox1.SelectedIndex = 1
   End Sub
End Class