How To Reapeat [NOT Resolved]

[StreaksAthlete]

Is there a way you can repeat something that just happend.
Example:

Private Sub Command1_Click() 
ListView1.ListItems.Add 1, , OK, "leaf", "leaf"

Is There A Way I Can Reapeat The Same Thing?

[PT Exorcist]

using a while or for / next statement?

[RobDog888]

You mean like adding the same listview item or by pressing the
command button again?

'Repeats 10 times
Private Sub Command1_Click() 
    Dim i as integer
    for i = 1 to 10
        ListView1.ListItems.Add , , OK, "leaf", "leaf"
    next
End Sub
 
'Repeat something that just happened one time.
'Will take two clicks in order to add a listitem.
Private Sub Command1_Click() 
    Static bHappened as Boolean
    bHappened = Not bHappened
    If bHappened = True Then
        ListView1.ListItems.Add , , OK, "leaf", "leaf"
    End If
End Sub

[StreaksAthlete]

By Pressing The Command Button

[laserman]

Little example

[RobDog888]

I missed some code for my second ex.

'Repeat something that just happened with one click.
'Will take one click but will happen twice.
Private Sub Command1_Click() 
    Static bHappened as Boolean
    bHappened = Not bHappened
    If bHappened = True Then
        ListView1.ListItems.Add , , OK, "leaf", "leaf"
    End If
    Call Command1_Click 'Forgot this line
End Sub