Timer Resize Label Width

[daniel50096230]

Hi, I had the following code:

Private Sub btnTransfer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTransfer.Click

Timer1.Interval = 1000
Timer1.Enabled = True
Timer1.Start()

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            Dim intStart As Integer = 0
            Dim intEnd As Integer = 120
            Dim second As Integer = 0

            lblDNC.Size = New System.Drawing.Size(0, 13)

            While intStart < intEnd
                lblDNC.Size = New System.Drawing.Size(intStart, 13)
                intStart += 1
            End While

        Catch ex As Exception
            Throw
        End Try
    End Sub

What I want is expand label size from 0 to 120 in 5 seconds then reset the label width back to 0 and looping.

My code doesn't works. Anyone can help?

[DataMiser]

You are basically setting intStart to 0 each time you enter the routine so your label is always going to be 0,13 in size

You need to use a static var or a var with a higher scope. You also need to move that code out of the timer that sets the label to 0 initially or wrap it in an If clause so that it only sets it to 0 under after a given amount of ticks.

You should probably do some reading on static, local and global variables.