Una función para devolver una lista con todas las coincidencias de un RegEx:

#Region " RegEx Matches To List "
 
    ' [ RegEx Matches To List Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Dim str As String = "<span class=""genres""><a href=""http://www.mp3crank.com/genre/alternative"" rel=""tag"">Alternative</a> / <a href=""http://www.mp3crank.com/genre/indie"" rel=""tag"">Indie</a> / <a href=""http://www.mp3crank.com/genre/rock"" rel=""tag"">Rock</a></span>"
    ' For Each match In RegEx_Matches_To_List(str, <a><![CDATA[tag">(\w+)<]]></a>.Value) : MsgBox(match) : Next
 
    Private Function RegEx_Matches_To_List(ByVal str As String, ByVal RegEx_Pattern As String) As List(Of String)
 
        Dim match As System.Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(str, RegEx_Pattern)
        Dim Match_List As New List(Of String)
 
        Do While match.Success
            Match_List.Add(match.Groups(1).ToString)
            match = match.NextMatch()
            Application.DoEvents()
        Loop
 
        Return Match_List
 
    End Function
 
#End Region

---

Unas cuantas expresiones regulares que he escrito para facilitar algunas taréas:

 
    ' Dim str As String = <a><![CDATA[<href="http://www.mp3crank.com/feed"]]></a>.Value
    ' MsgBox(Match_RegEx_MainBase_Url(Str)) ' Result: http://www.mp3crank.com
 
    Private Function Match_RegEx_MainBase_Url(ByVal str As String) As String
 
        ' Match criteria:
        '
        ' http://url.domain
        ' https://url.domain
        ' www.url.domain
 
        Dim RegEx As New System.Text.RegularExpressions.Regex( _
        <a><![CDATA[(http://|https://|www).+\.[0-9A-z]]]></a>.Value)
 
        Return RegEx.Match(str).Groups(0).ToString
    End Function

 
    ' Dim str As String = <a><![CDATA[<href="http://www.mp3crank.com/feed"]]></a>.Value
    ' MsgBox(Match_RegEx_Url(str)) ' Result: http://www.mp3crank.com/feed
 
    Private Function Match_RegEx_Url(ByVal str As String) As String
 
        ' Match criteria:
        '
        ' http://url
        ' https://url
        ' www.url
 
        Dim RegEx As New System.Text.RegularExpressions.Regex( _
        <a><![CDATA[(http://|https://|www).+\b]]></a>.Value)
 
        Return RegEx.Match(str).Groups(0).ToString
    End Function

 
    ' Dim str As String = <a><![CDATA[href="http://www.mp3crank.com/the-rolling-stones/deluxe-edition.htm"]]></a>.Value
    ' MsgBox(Match_RegEx_htm_html(str)) ' Result: http://www.mp3crank.com/the-rolling-stones/deluxe-edition.htm
 
    Private Function Match_RegEx_htm_html(ByVal str As String) As String
 
        ' Match criteria:
        '
        ' http://Text.htm
        ' http://Text.html
        ' https://Text.htm
        ' https://Text.html
        ' www.Text.htm
        ' www.Text.html
 
        Dim RegEx As New System.Text.RegularExpressions.Regex( _
        <a><![CDATA[(http://|https://|www).*\.html?]]></a>.Value)
 
        Return RegEx.Match(str).Groups(0).ToString
    End Function

 
    ' Dim str As String = <a><![CDATA[href=>Drifter - In Search of Something More [EP] (2013)</a>]]></a>.Value
    ' MsgBox(Match_RegEx_Tag(str)) ' Result: Drifter - In Search of Something More [EP] (2013)
 
    Private Function Match_RegEx_Tag(ByVal str As String) As String
 
        ' Match criteria:
        '
        ' >..Text..<
 
        Dim RegEx As New System.Text.RegularExpressions.Regex( _
        <a><![CDATA[>([^<]+?)<]]></a>.Value)
 
        Return RegEx.Match(str).Groups(1).ToString
    End Function

Puedes colaborar publicando tus códigos aquí, yo publico solo lo mio, o lo que encuentro por ahí en zonas prohibidas de la red xD.
Eres libre de publicar aquí tus snippets.


Miedo me da ese código, no sé si querrás publicar eso, te lo digo más que nada porque no le veo sentido ni utilidad cuando existe una propiedad para redimensionar la imágen:

Saludos!

Claro, si alguna vez me hicieras caso y leyeras el nombre y la descripción de cada propiedad, ni 3 minutos lleva mirarse las propiedades de un Form, aparte de aprender un poco más no perderías tiempo buscando códigos tontos.
...Pero lo que me hace gracia es que alguien haya gastado tiempo escribiendo ese código que comentas, me imagino que también lo habrá escrito sin saber que existia dicha propiedad, el colmo xD.

En fín, publica lo que quieras de todas formas he?, pa eso está esta sección.

saludos

[FastColoredTextBox] Scroll Text

Scrollea hasta el final del texto y posiciona el cursor del teclado en el último caracter.

PD: Se requiere el control extendido FastColoredTextbox.

#Region " [FastColoredTextBox] Scroll Text "
 
    ' FastColoredTextBox] Scroll Text
    '
    ' // By Elektro H@cker
 
    Private Sub FastColoredTextBox1_TextChanged(sender As Object, e As FastColoredTextBoxNS.TextChangedEventArgs) _
        Handles FastColoredTextBox1.TextChangedDelayed
 
        sender.ScrollLeft()
        sender.Navigate(sender.Lines.Count - 1) ' Scroll to down
        sender.SelectionStart = sender.Text.Length ' Set the keyboard cursor position
 
    End Sub
 
#End Region

- Detect mouse wheel direction.

Comprueba en que dirección se movió la rueda del mouse.

    Private Sub Form_MouseWheel(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseWheel
 
        Select Case Math.Sign(e.Delta)
            Case Is < 0
                MsgBox("MouseWheel Down")
            Case Is > 0
                MsgBox("MouseWheel Up")
        End Select
 
    End Sub

---

Comprueba en que dirección se movió la rueda del mouse.
...Lo mismo que antes pero usando los mensajes de Windows:

    Public Shared Mouse_Have_Wheel As Boolean = My.Computer.Mouse.WheelExists
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Application.AddMessageFilter(New MouseWheelMessageFilter())
    End Sub
 
    Public Class MouseWheelMessageFilter
        Implements IMessageFilter
 
        Public Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage
 
            If Mouse_Have_Wheel Then
 
                If m.Msg = &H20A Then
 
                    If Form.ActiveForm IsNot Nothing Then
 
                        Try ' "Try" solves too fast wheeling.
 
                            Dim delta As Integer = m.WParam.ToInt32() >> 16
 
                            If delta > 0 Then
                                MsgBox("MouseWheel Up")
                            Else
                                MsgBox("MouseWheel Down")
                            End If
 
                        Catch : End Try
 
                    End If
 
                    Return True
                End If
 
            End If
 
            Return False
 
        End Function
 
    End Class

---

Ejemplo de como modificar la fuente de texto actual de un control:

Me.Font = New Font("Lucida Console", 16, FontStyle.Regular, GraphicsUnit.Point)