No tenía nada más que decir al respecto... pero bueno, si quieres algún tipo de opinión... tu lo has querido xD :

1. Aunque no describes las cosas por sus términos correctos al menos hay muchos comentarios, eso es algo de agradecer que siempre me gusta ver en los codes...
2. El mports NET sobra, no lo utilizas en ese código...
3. No me gusta que importes "IO" para evitar escribirlo en 1 instrucción pero en la otra lo sigas escribiendo.
4. Me parece excesivo comprobar cada 15 segundos una actualización del programa :-/, yo lo comprobaría al ejecutar la aplicación y ya está, pero bueno, esto ya...pa gustos colores.
5. Es un code básico, cumple su función, no puedo opinar mucho más sobre el code, y lo otro...bueno, son snippets copiados, así que tampoco puedo opinar..

...
...Veo que no hemos aprendido nada en todo este tiempo IKillNukes...

Contéstate tu mismo la pregunta: ¿El timer lo instancias en otros forms/classes?

Saludos

Si haces eso no se para el Timer, diréctamente lo destruyes, ya te expliqué porque...

saludos!

@IKillnukes

Hola

1. No te he dicho nada con sarcasmo, quizás serio si (ya sabes porque), pero sarcasmo no.


2. Obviamente no puedes modificar las propiedades de un objeto que no has instanciado... vuelve a leer la línea que te puse y copiala tal cual la puse, y luego ya... intenta comprender las cosas y porque tu línea te da error y la mia no.

3. Este hilo es para postear snippets, porfavor no alarguemos más esta conversación con tus dudas, ya están resueltas.

saludos

Hoy pensé en añadir la funcionalidad de seleccionar todo el texto haciendo triple click sobre un textbox... y he dado con este snippet: http://www.codeproject.com/Articles/23498/A-Simple-Method-for-Handling-Multiple-Clicking-on

Es un contador de clicks, así que se puede utilizar como Triple-Click, o Cuadruple-Click o lo que quieran... xD

Public Class Form1
 
#Region " Mouse-Click Count "
 
    ''' <summary>
    ''' The Click-Timer area bounds.
    ''' </summary>
    ''' <remarks></remarks>
    Private ClickArea As Rectangle
 
    ''' <summary>
    ''' The mouse button clicked.
    ''' </summary>
    ''' <remarks></remarks>
    Private ClickButton As MouseButtons
 
    ''' <summary>
    ''' Accumulate clicks for the Click-Timer.
    ''' </summary>
    ''' <remarks></remarks>
    Private ClickCount As Int32
 
    ''' <summary>
    ''' Save the Click-Timer double-click delay time (ms).
    ''' </summary>
    ''' <remarks></remarks>
    Private ClickDelay As Int32 = SystemInformation.DoubleClickTime
 
    ''' <summary>
    ''' String description of the appropriate owner of the Click-Timer expiry event.
    ''' </summary>
    ''' <remarks></remarks>
    Private ClickOwner As String = ""
 
    ''' <summary>
    ''' Save the Click-Timer double-click area bounds.
    ''' </summary>
    ''' <remarks></remarks>
    Private ClickSize As Size = SystemInformation.DoubleClickSize
 
    ''' <summary>
    ''' Create a new Click-Timer with events.
    ''' </summary>
    ''' <remarks></remarks>
    Private WithEvents ClickTimer As New Timer
 
    ''' <summary>
    ''' Click-Timer "Tick" event handler.
    ''' </summary>
    ''' <param name="sender">Event object owner.</param>
    ''' <param name="e">Event arguments.</param>
    ''' <remarks></remarks>
    Private Sub ClickTimer_TickHandler(ByVal sender As Object, ByVal e As EventArgs) Handles ClickTimer.Tick
        Me.ClickTimer.Stop()
        Me.ClickCount = 0
    End Sub
 
    ''' <summary>
    ''' Initialise the Click-Timer with Owner and valid double-click area.
    ''' </summary>
    ''' <param name="aOwnerControl">Click-Timer owner control (string).</param>
    ''' <param name="aMouseButton">Mouse button clicked.</param>
    ''' <param name="aClickPoint">Click point for definition of the valid double-click area.</param>
    ''' <remarks></remarks>
    Private Sub ClickTimer_Initialise(ByVal aOwnerControl As String, _
                                      ByVal aMouseButton As MouseButtons, _
                                      ByVal aClickPoint As Point)
 
        ' Stop the Click-Timer.
        Me.ClickTimer.Stop()
        ' Save the owner control text.
        Me.ClickOwner = aOwnerControl
        ' Save the mouse button.
        Me.ClickButton = aMouseButton
        ' This is the first click.
        Me.ClickCount = 1
        ' Define the valid double-click area for any multi-clicking.
        Me.ClickArea = New Rectangle _
              (aClickPoint.X - Me.ClickSize.Width \ 2 _
              , aClickPoint.Y - Me.ClickSize.Height \ 2 _
              , Me.ClickSize.Width, Me.ClickSize.Height)
        ' Set the system default double-click delay.
        Me.ClickTimer.Interval = Me.ClickDelay
        ' Start the Click-Timer.
        Me.ClickTimer.Start()
 
    End Sub
 
    ''' <summary>
    ''' Register a mouse click (or double click) event.
    ''' </summary>
    ''' <param name="aOwnerControl">Click-Timer owner control (string).</param>
    ''' <param name="aMouseButton">Mouse button clicked.</param>
    ''' <param name="aClickPoint">Click point for definition of the valid double-click area.</param>
    ''' <remarks></remarks>
    Private Sub ClickTimer_Click(ByVal aOwnerControl As String, _
                                 ByVal aMouseButton As MouseButtons, _
                                 ByVal aClickPoint As Point)
 
        ' Handle this click event.
        If Me.ClickTimer.Enabled Then
            ' The Click-Timer is going, stop it and check we haven't changed controls.
            Me.ClickTimer.Stop()
            If Me.ClickOwner = aOwnerControl _
            AndAlso Me.ClickButton = aMouseButton _
            AndAlso Me.ClickArea.Contains(aClickPoint) Then
                ' Working with the same control, same button within a valid double-click area so bump the count.
                Me.ClickCount += 1
                ' Set the system default double-click delay.
                Me.ClickTimer.Interval = Me.ClickDelay
                ' Start the Click-Timer.
                Me.ClickTimer.Start()
            Else
                ' Not working with the same control. Initialise the Click-Timer.
                Me.ClickTimer_Initialise(aOwnerControl, aMouseButton, aClickPoint)
            End If
        Else
            ' The timer is not enabled. Initialise the Click-Timer.
            Me.ClickTimer_Initialise(aOwnerControl, aMouseButton, aClickPoint)
        End If
 
    End Sub
 
#End Region
 
    Private Sub TextBox1_Clicked(ByVal sender As Object, ByVal e As MouseEventArgs) _
    Handles TextBox1.MouseClick, TextBox1.MouseDoubleClick
 
        Me.ClickTimer_Click(sender.name, e.Button, e.Location)
 
        If ClickCount = 3 Then ' Triple Click to select all text.
            sender.SelectAll()
        End If
 
    End Sub
 
End Class

Saludos.

[Textbox] Show end part of text

Este snippet no se muy bien como explicarlo en pocas palabras, así que lo voy a explicar con imágenes...

Cuando excedemos el límite visible del textbox, la parte del final, es decir la parte derecha no se muestra:



Pues con este snippet omitiremos la parte de la izquierda, mostrando hasta la parte final del texto:

    Private Sub TextBox_TextChanged(sender As Object, e As EventArgs) _
    Handles TextBox1.TextChanged
 
        ' If the text reaches the writable box size then this shows the end part of the text.                                                          
        sender.Select(sender.TextLength, sender.TextLength)
 
    End Sub

Saludos!