จะทำให้For วน loop ไปเรื่อยๆแล้วนี้จะทำยังไงอ่ะครับ เมื่อมีการคลิก

Dim i as integer= 1

Do While   i<=100
           
           Textbox1.Text= Textbox1.Text   & i  & vbCrLf
            i=i+1
Loop

 Dim num As Integer = 1
    Dim i As Integer

-----------------------------------------------------------------------------------------------------------

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If i < 1 Then
            i = i + 1
        ElseIf i < 2 Then
            i = i + 1
        ElseIf i < 3 Then
            i = i + 1
         ElseIf i < 4 Then
        i = i + 1
        End If
        TextBox1.Text = i
    End Sub