How do I do a loop for this ?

Question

Private Sub btnAdd1_Click(sender As Object, e As EventArgs) Handles btnAdd1.Click
lblQty1.Text += 1
End Sub

Private Sub btnAdd4_Click(sender As Object, e As EventArgs) Handles btnAdd4.Click
    lblQty2.Text += 1
End Sub

Private Sub btnAdd7_Click(sender As Object, e As EventArgs) Handles btnAdd7.Click
    lblQty3.Text += 1
End Sub

Answer 1

Something like this might be what you are looking for:

Public Shared Function CycleControls(ByVal Page As Control) As Boolean

    'this function cycles through all the labels on a web form 


    Try

        For Each ctrl As Control In Page.Controls

            If TypeOf ctrl Is Label Then
                CType(ctrl, Label).Text = CType(ctrl, Label).Text + 1                   
            End If


        Next
        Return True
    Catch
        Return False
    End Try

End Function

Answer 2

To increment the labels, drag a Timer control to your form in Form Designer, set Enabled to True and Interval to 1000, add the Tick handler (double-click the added component), where you can increment your labels, for example:

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
   lblQty1.Text += 1
   lblQty2.Text += 1
   lblQty3.Text += 1
End Sub

Answer 3

Sorry, the code is like this:

Private Sub btnAdd1_Click(sender As Object, e As EventArgs) Handles btnAdd1.Click
lblQty1.Text += 1
End Sub

Private Sub btnAdd2_Click(sender As Object, e As EventArgs) Handles btnAdd2.Click
lblQty2.Text += 1
End Sub
Private Sub btnAdd3_Click(sender As Object, e As EventArgs) Handles btnAdd3.Click
lblQty3.Text += 1
End Sub