Private Sub CheckFolder_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckFolder.CheckedChanged
        If CheckFolder.Checked = True Then
            FolderBrowserDialog1.ShowDialog()
            LabelFolder.Text = FolderBrowserDialog1.SelectedPath() 'Aqui va la ruta de la carpeta que se selecciono
        Else
            LabelFolder.Text = Folder 'Si por algun motivo quiero usar nuevamente la carpeta "Screenshots". Pero la elimine por accidente
            CheckFolder.Checked = False
            Folder = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Screenshots")
            If Not Directory.Exists(Folder) Then
                Directory.CreateDirectory(Folder)
            End If
        End If
    End Sub
 

CheckFolder.Checked = False

If CheckFolder.Checked = True Then
          bla bla bla
      Else ' Else, sólo puede haber una condicion contradictoria en un Boolean, y es "False", "CheckFolder.Checked = False"
          CheckFolder.Checked = False ' Así que esto no hace nada, porque si se procesa esta parte del bloque significa que la propiedad "Checked" ya está en "False".
End If

#Region " NAudio "
 
Public Class NAudio_Helper
 
    ' [ NAudio ]
    '
    ' // By Elektro H@cker
    '
    ' Instructions:
    ' 1. Add a reference for the "NAudio.dll" file into the project.
    '
    ' Examples:
    '
    ' Dim Stream As NAudio.Wave.WaveFileReader = New NAudio.Wave.WaveFileReader(File)
    '
    ' Set_Volume(Stream, 0.5)
    ' Play_Sound(Stream, 1)
    ' Play_Sound(My.Resources.AudioFile)
    ' Play_Sound("C:\File.wav")
 
 
    ' Play Sound (File)
    Private Sub Play_Sound(ByVal File As String, _
                           Optional ByVal Volume As Single = Nothing)
 
        Dim Wave As New NAudio.Wave.WaveOut
 
        Select Case File.Split(".").Last.ToLower
            Case "aiff"
                Wave.Init(New NAudio.Wave.AiffFileReader(File))
            Case "mp3"
                Wave.Init(New NAudio.Wave.Mp3FileReader(File))
            Case "wav"
                Wave.Init(New NAudio.Wave.WaveFileReader(File))
            Case Else
                Wave.Init(New NAudio.Wave.BlockAlignReductionStream(NAudio.Wave.WaveFormatConversionStream.CreatePcmStream(New NAudio.Wave.AudioFileReader(File))))
        End Select
 
        If Not Volume = Nothing Then Wave.Volume = Volume
        Wave.Play()
 
    End Sub
 
    ' Play Sound (MemoryStream)
    Private Sub Play_Sound(ByVal Stream As IO.MemoryStream, _
                           Optional ByVal Volume As Single = Nothing)
 
        Dim Wave As New NAudio.Wave.WaveOut
        Wave.Init(New NAudio.Wave.BlockAlignReductionStream(NAudio.Wave.WaveFormatConversionStream.CreatePcmStream(New NAudio.Wave.WaveFileReader(Stream))))
        If Not Volume = Nothing Then Wave.Volume = Volume
        Wave.Play()
 
    End Sub
 
    ' Play Sound (Unmanaged MemoryStream)
    Private Sub Play_Sound(ByVal Stream As IO.UnmanagedMemoryStream, _
                           Optional ByVal Volume As Single = Nothing)
 
        Dim Wave As New NAudio.Wave.WaveOut
        Wave.Init(New NAudio.Wave.BlockAlignReductionStream(NAudio.Wave.WaveFormatConversionStream.CreatePcmStream(New NAudio.Wave.WaveFileReader(Stream))))
        If Not Volume = Nothing Then Wave.Volume = Volume
        Wave.Play()
 
    End Sub
 
    ' Play Sound (NAudio Stream)
    Private Sub Play_Sound(ByVal NAudio_Stream As Object, _
                           Optional ByVal Volume As Single = Nothing)
 
        Dim Wave As New NAudio.Wave.WaveOut
        Wave.Init(NAudio_Stream)
        If Not Volume = Nothing Then Wave.Volume = Volume
        Wave.Play()
 
    End Sub
 
    ' Set Volume (NAudio Stream)
    Private Function Set_Volume(ByVal NAudio_Stream As Object, ByVal Volume As Single) _
    As NAudio.Wave.WaveOut
 
        Dim Wave As New NAudio.Wave.WaveOut
        Wave.Init(NAudio_Stream)
        Wave.Volume = Volume
        Return Wave
 
    End Function
 
End Class
 
#End Region

Play_Sound(my.resources.WavFile)

    ' Play Sound
    Private Sub Play_Sound(ByVal Sound As IO.UnmanagedMemoryStream)
        Dim Wave1 As New NAudio.Wave.WaveOut
        Wave1.Init(New NAudio.Wave.BlockAlignReductionStream(NAudio.Wave.WaveFormatConversionStream.CreatePcmStream(New NAudio.Wave.WaveFileReader(Sound))))
        Wave1.Volume = Soundvolume ' Single num
        Wave1.Play()
    End Sub

Set FSO = CreateObject("Scripting.FileSystemObject")
 
For Each File In FSO.GetFolder(".\").Files
	If LCase(FSO.GetExtensionName(File.Name)) = "qpf" then
		Wscript.echo(File.Name)
	end if
Next

Public wavefile As New NAudio.Wave.WaveFileReader("C:\Archivo.wav")

        namespace NAudioDemo.AudioPlaybackDemo
 
        this.fileWaveStream = plugin.CreateWaveStream(fileName);
        var waveChannel =  new SampleChannel(this.fileWaveStream, true);
        this.setVolumeDelegate = (vol) => waveChannel.Volume = vol;
        waveChannel.PreVolumeMeter += OnPreVolumeMeter;
 
        var postVolumeMeter = new MeteringSampleProvider(waveChannel);
        postVolumeMeter.StreamVolume += OnPostVolumeMeter;

Public Class Form1
 
    ' Creamos dos objetos de tipo {Button} con algunas propiedades :
 
    Dim WithEvents objeto1 As Button = New Button _
    With {.Name = "Boton1", _
          .AutoSize = True, _
          .Tag = "Botoncito 1", _
          .Text = "Soy el botón 1, púlsame!", _
          .Font = New Font("Microsoft Sans Serif", 16, FontStyle.Bold), _
          .Dock = DockStyle.Top}
 
    Dim WithEvents objeto2 As Button = New Button _
    With {.Name = "Boton2", _
          .AutoSize = True, _
          .Tag = "Botoncito 2", _
          .Text = "Soy el botón 2, púlsame!", _
          .Font = New Font("Microsoft Sans Serif", 16, FontStyle.Bold), _
          .Dock = DockStyle.Bottom}
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Asociamos un {evento} de los objetos a un {eventhandler} :
        AddHandler objeto1.MouseDown, AddressOf objeto_Click
        AddHandler objeto2.MouseDown, AddressOf objeto_Click
        ' Añadimos los controles al formulario :
        Me.Controls.Add(objeto1) : Me.Controls.Add(objeto2)
    End Sub
 
    Private Sub objeto_Click(sender As Object, e As MouseEventArgs) ' Handles objeto1.MouseDown, objeto2.MouseDown
 
        ' El objeto que recibe el sender es de tipo {Button}, el sender equivale a uno de nuestros botones :
 
        MsgBox(String.Format("Name: {0}Tag: {1}Text: {2}", _
                             sender.Name & Environment.NewLine, _
                             sender.tag & Environment.NewLine, _
                             sender.Text & Environment.NewLine))
 
        ' Pero en algunos casos querremos convertir el sender al tipo de objeto en cuestión,
        ' por ejemplo en este caso para diferenciar entre un botón y otro :
 
        Dim Boton As Button = CType(sender, Button)
 
        Select Case Boton.Name
            Case "Boton1" ' El botón se llama "Boton1"
                MsgBox("Esto sucede al pulsar el botón: " & Boton.Name)
                ' Código...
            Case "Boton2" ' El botón se llama "Boton2"
                MsgBox("Esto otro sucede al pulsar el botón: " & Boton.Name)
                ' Más código...
        End Select
 
        ' Una muestra de como manejar {e} para el tipo de evento {MouseEventArgs} :
        MsgBox("Pulsaste el botón de tu mouse: " & e.Button.ToString)
 
    End Sub
 
End Class