@arts
la verdad es que según tengo entendido entre las comprbocaciones de IF y Select Case no hay diferencia así que creo que deben ser igual.

---

Generador de captchas.

#Region " Captcha Generator Function "
 
    ' [ Captcha Generator Function ]
    '
    ' Instructions:
    ' Copy the Captcha Class into a new Class "Captcha.vb"
    '
    ' Examples :
    ' Dim myCaptcha As New Captcha
    ' PictureBox1.Image = myCaptcha.GenerateCaptcha(5) ' Generate a captcha of 5 letters
    ' MsgBox(myCaptcha.Check(TextBox1.Text, True)) ' Check if the given text is correct
 
 
    ' Captcha.vb
#Region " Captcha Class "
 
    Imports System.Drawing
    Imports System.Drawing.Drawing2D
 
    Public Class Captcha
 
        Dim cap As String
 
        Public ReadOnly Property CaptchaString As String
            Get
                Return cap
            End Get
        End Property
 
        ' Generate Captcha
        Function GenerateCaptcha(ByVal NumberOfCharacters As Integer) As Bitmap
            Dim R As New Random
            Dim VerticalLineSpaceing As Integer = R.Next(5, 10) ' The space between each horizontal line
            Dim HorisontalLineSpaceing As Integer = R.Next(5, 10) ' The space between each Vertical line
            Dim CWidth As Integer = (NumberOfCharacters * 120) 'Generating the width
            Dim CHeight As Integer = 180 ' the height
            Dim CAPTCHA As New Bitmap(CWidth, CHeight)
            Dim allowedCharacters() As Char = "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM123456789".ToCharArray 'Guess
            Dim str(NumberOfCharacters - 1) As Char ' The String to turn into a captcha
 
            For i = 0 To NumberOfCharacters - 1
                str(i) = allowedCharacters(R.Next(0, 61)) ' Generating random characters
            Next
 
            Using g As Graphics = Graphics.FromImage(CAPTCHA)
 
                ' the gradient brush for the background
                Dim gradient As New Drawing2D.LinearGradientBrush(New Point(0, CInt(CHeight / 2)), New Point(CWidth, CInt(CHeight / 2)), Drawing.Color.FromArgb(R.Next(&HFF7D7D7D, &HFFFFFFFF)), Drawing.Color.FromArgb(R.Next(&HFF7D7D7D, &HFFFFFFFF)))
 
                g.FillRectangle(gradient, New Rectangle(0, 0, CWidth, CHeight))
                Dim plist As New List(Of Point) ' the list of points the curve goes through
 
                For i = 0 To str.Length - 1
                    Dim FHeight As Integer = R.Next(60, 100) 'Font height in EM
                    Dim Font As New Font("Arial", FHeight)
                    Dim Y As Integer = R.Next(0, (CHeight - FHeight) - 40) 'Generating the Y value of a char: will be between the top  and (bottom - 40) to prevent half characters
                    Dim X As Integer = CInt((((i * CWidth) - 10) / NumberOfCharacters))  'Some formula that made sense At the time that I typed it to generate the X value
                    Dim p As New Point(X, Y)
 
                    g.DrawString(str(i).ToString, Font, Brushes.Black, p)
 
                    plist.Add(New Point(X, R.Next(CInt((CHeight / 2) - 40), CInt((CHeight / 2) + 40)))) ' add the points to the array
                Next
 
                plist.Add(New Point(CWidth, CInt(CHeight / 2))) 'for some reason it doesn't go to the end so we manually add the last point
                Dim ppen As New Pen(Brushes.Black, R.Next(5, 10)) ' the pen used to draw the curve
                g.DrawCurve(ppen, plist.ToArray)
                Dim pen As New Pen(Brushes.SteelBlue, CSng(R.Next(1, 2))) 'the pen that will draw the horisontal and vertical lines.
 
                ' Drawing the vertical lines
                For i = 1 To CWidth
                    Dim ptop As New Point(i * VerticalLineSpaceing, 0)
                    Dim pBottom As New Point(i * VerticalLineSpaceing, CHeight)
                    g.DrawLine(pen, ptop, pBottom)
                Next
 
                ' Drawing the horizontal lines
                For i = 1 To CHeight
                    Dim ptop As New Point(0, i * HorisontalLineSpaceing)
                    Dim pBottom As New Point(CWidth, i * HorisontalLineSpaceing)
                    g.DrawLine(pen, ptop, pBottom)
                Next
 
                ' Drawing the Black noise particles
                Dim numnoise As Integer = CInt(CWidth * CHeight / 25) 'calculating the  number of noise for the block. This will generate 1 Noise per 25X25 block of pixels if im correct
 
                For i = 1 To numnoise / 2
                    Dim X As Integer = R.Next(0, CWidth)
                    Dim Y As Integer = R.Next(0, CHeight)
                    Dim int As Integer = R.Next(1, 2)
                    g.FillEllipse(Brushes.Black, New Rectangle(X, Y, R.Next(2, 5), R.Next(2, 5))) 'Size of the white noise
                Next
 
                ' Drawing the white noise particles
                For i = 1 To numnoise / 2
                    Dim X As Integer = R.Next(0, CWidth)
                    Dim Y As Integer = R.Next(0, CHeight)
                    Dim int As Integer = R.Next(1, 2)
                    g.FillEllipse(Brushes.White, New Rectangle(X, Y, R.Next(2, 5), R.Next(2, 5))) 'Size of the white noise
                Next
 
            End Using
 
            cap = str
            Return CAPTCHA
        End Function
 
        ' Check captcha
        Function Check(ByVal captcha As String, Optional ByVal IgnoreCase As Boolean = False) As Boolean
            If IgnoreCase Then
                If captcha.ToLower = CaptchaString.ToLower Then
                    Return True
                Else
                    Return False
                End If
            Else
                If captcha = CaptchaString Then
                    Return True
                Else
                    Return False
                End If
            End If
        End Function
 
    End Class
 
#End Region
 
#End Region

Grabar audio del PC:

#Region " Rec Sound Function "
 
    ' [ Rec Sound Function ]
    '
    ' Examples :
    ' Rec_Sound("C:\Audio.wav", Rec.Start_Record)
    ' Rec_Sound("C:\Audio.wav", Rec.Stop_Record)
 
    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
 
    Public Enum Rec
        Start_Record
        Stop_Record
    End Enum
 
    Private Function Rec_Sound(ByVal Path As String, ByVal Rec As Rec) As Boolean
        Select Case Rec
            Case Rec.Start_Record
                mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
                mciSendString("record recsound", "", 0, 0)
                Return True
            Case Rec.Stop_Record
                mciSendString("save recsound " & Path & "", "", 0, 0)
                mciSendString("close recsound", "", 0, 0)
                Return True
            Case Else : Return Nothing
        End Select
    End Function
 
#End Region

FTP Uploader:

#Region " FTP Upload Function "
 
    ' [ FTP Upload Function ]
    '
    ' Examples :
    ' FTP_Upload("C:\File.txt", "ftp://127.0.0.1/File.txt", "User")
    ' MsgBox(FTP_Upload("C:\File.txt", "ftp://127.0.0.1/File.txt", "User", "Pass"))
 
    Public Function FTP_Upload(ByVal FilePath As String, ByVal FTP_FilePath As String, _
                    Optional ByVal User As String = Nothing, _
                    Optional ByVal Pass As String = Nothing) As Boolean
 
        Dim FTP_request As System.Net.FtpWebRequest
        Dim FTP_stream As System.IO.Stream
        Dim FTP_bytes() As Byte
 
        Try
            FTP_request = DirectCast(System.Net.WebRequest.Create(FTP_FilePath), System.Net.FtpWebRequest)
            FTP_request.Credentials = New System.Net.NetworkCredential(User, Pass)
            FTP_request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
            FTP_stream = FTP_request.GetRequestStream()
            FTP_bytes = System.IO.File.ReadAllBytes(FilePath)
 
            With FTP_stream
                .Write(FTP_bytes, 0, FTP_bytes.Length)
                .Close()
                .Dispose()
            End With
 
            Return True
 
        Catch ex As Exception : Return False
        End Try
 
    End Function
 
#End Region

Copiar un archivo con posibilidad de cancelar la operación y reemplazar:

#Region " Copy File In Chunks "
 
    ' [ Copy File In Chunks Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Copy_File_In_Chunks("C:\BigFile.mkv", "C:\BigFile_copy.mkv")
    ' Copy_File_In_Chunks("C:\BigFile.mkv", "C:\BigFile_copy.mkv", 9999, True, True)
 
    Dim Cancel_Copy As Boolean = False
 
    Public Function Copy_File_In_Chunks(ByVal InputFile As String, ByVal OutputFile As String, _
                                        Optional ByVal BufferSize As Int16 = 1024, _
                                        Optional ByVal Overwrite As Boolean = False, _
                                        Optional ByVal DeleteFileOnCancel As Boolean = False) As Boolean
 
        Dim InputStream As New IO.FileStream(InputFile, IO.FileMode.Open, IO.FileAccess.Read)
        Dim OutputStream As IO.FileStream
 
        If Overwrite Then
            OutputStream = New IO.FileStream(OutputFile, IO.FileMode.Create, IO.FileAccess.Write)
        Else
            OutputStream = New IO.FileStream(OutputFile, IO.FileMode.CreateNew, IO.FileAccess.Write)
        End If
 
        Dim Buffer = New Byte(BufferSize) {}
        Dim BytesRead As Integer = 0
 
        Do : If Cancel_Copy Then : GoTo Close_Copy
            Else
                Application.DoEvents() ' Remove it if you don't like...
                BytesRead = InputStream.Read(Buffer, 0, Buffer.Length)
                If BytesRead > 0 Then OutputStream.Write(Buffer, 0, BytesRead)
            End If
        Loop While (BytesRead > 0)
 
Close_Copy:
 
        OutputStream.Flush() : InputStream.Close() : OutputStream.Close()
 
        If DeleteFileOnCancel Then
            Try : IO.File.Delete(OutputFile) : Catch : End Try
            Return False
        Else : Return True
        End If
 
    End Function
 
#End Region

· Unir argumentos:

#Region " Join Arguments Function "
 
    ' [ Join Arguments Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' MsgBox(Join_Arguments())
    ' MsgBox(Join_Arguments(";"))
    ' If Join_Arguments() Is Nothing Then MsgBox("No arguments")
 
    Private Function Join_Arguments(Optional Delimiter As String = " ") As String
 
        ' Check if exist at least one argument
        If Environment.GetCommandLineArgs().Length = 1 Then Return Nothing
 
        ' Store all arguments
        Dim Arguments As [String]() = Environment.GetCommandLineArgs()
 
        ' Delete Argument 0 (It's the name of the APP)
        For x = 1 To UBound(Arguments) : Arguments(x - 1) = Arguments(x) : Next x
 
        ' Redimensione the array
        ReDim Preserve Arguments(UBound(Arguments) - 1)
 
        ' Return the string
        Return [String].Join(Delimiter, Arguments)
 
    End Function
 
#End Region

---

· Ignorar excepciones:

#Region " Ignore Exceptions "
 
    ' [ Ignore Exceptions ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    '   IO.File.OpenText("X:\Failed_To_Open.txt")
    ' End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try : AddHandler Application.ThreadException, AddressOf Application_Exception_Handler _
            : Application.SetUnhandledExceptionMode(UnhandledExceptionMode.CatchException, False) _
            : Catch : End Try
    End Sub
 
    Private Sub Application_Exception_Handler(ByVal sender As Object, ByVal e As System.Threading.ThreadExceptionEventArgs)
        ' Here you can manage the exceptions:
        ' Dim ex As Exception = CType(e.Exception, Exception)
        ' MsgBox(ex.Message)
        ' ...Or leave empty to ignore it.
    End Sub
 
#End Region

---

· Devuelve el nombre de la aplicación actual:

EDITO: Mejorado

#Region " Get Current APP Name Function "
 
    ' [ Get Current APP Name Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' MsgBox(Get_Current_APP_Name())
    ' MsgBox(Get_Current_APP_Name(False))
 
    Private Function Get_Current_APP_Name(Optional ByVal WithFileExtension As Boolean = True) As String
        Dim EXE_Filename As String = System.Diagnostics.Process.GetCurrentProcess().MainModule.ModuleName
 
        If WithFileExtension Then : Return EXE_Filename
        Else : Return EXE_Filename.Substring(0, EXE_Filename.Length - 4)
        End If
 
    End Function
 
#End Region

---

· Devuelve la ruta parcial o la ruta absoluta de la aplicación actual:

EDITO: SIMPLIFICADO

#Region " Get Current APP Path Function "
 
    ' [ Get Current APP Path Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' MsgBox(Get_Current_APP_Path())
    ' MsgBox(Get_Current_APP_Path(True))
 
    Private Function Get_Current_APP_Path(Optional ByVal FullPath As Boolean = False) As String
        If FullPath Then : Return CurDir() & "\" & System.Diagnostics.Process.GetCurrentProcess().MainModule.ModuleName
        Else : Return CurDir()
        End If
    End Function
 
#End Region

---

· Sleep

#Region " Sleep "
 
    ' [ Sleep ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Sleep(5) : MsgBox("Test")
    ' Sleep(5, Measure.Seconds) : MsgBox("Test")
 
    Public Enum Measure
        Milliseconds = 1
        Seconds = 2
        Minutes = 3
        Hours = 4
    End Enum
 
    Private Sub Sleep(ByVal Duration As Int64, Optional ByVal Measure As Measure = Measure.Seconds)
 
        Dim Starttime = DateTime.Now
 
        Select Case Measure
            Case Measure.Milliseconds : Do While (DateTime.Now - Starttime).TotalMilliseconds < Duration : Application.DoEvents() : Loop
            Case Measure.Seconds : Do While (DateTime.Now - Starttime).TotalSeconds < Duration : Application.DoEvents() : Loop
            Case Measure.Minutes : Do While (DateTime.Now - Starttime).TotalMinutes < Duration : Application.DoEvents() : Loop
            Case Measure.Hours : Do While (DateTime.Now - Starttime).TotalHours < Duration : Application.DoEvents() : Loop
            Case Else
        End Select
 
    End Sub
 
#End Region

---

· Devuelve un color RGB aleatorio:

#Region " Get Random RGB Color Function "
 
    ' [ Get Random RGB Color Function ]
    '
    ' Examples :
    ' Label1.ForeColor = Get_Random_RGB_Color()
 
    Private Function Get_Random_RGB_Color() As Color
        Return Color.FromArgb(255, _
            m_Rnd.Next(0, 255), _
            m_Rnd.Next(0, 255), _
            m_Rnd.Next(0, 255))
    End Function
 
#End Region

---

· Devuelve un color QB aleatorio:
http://msdn.microsoft.com/en-us/library/d2dz8078%28v=vs.80%29.aspx

#Region " Get Random QB Color Function "
 
    ' [ Get Random QB Color Function ]
    '
    ' Examples :
    ' Label1.ForeColor = Get_Random_QB_Color()
 
    Private QB_Random As New Random
    Public Function Get_Random_QB_Color() As Color
        Return Color.FromArgb(QBColor(QB_Random.Next(0, 15)) + &HFF000000)
    End Function
 
#End Region