I need it to add one to every button depending on what the caption number is, of the button i click and the button i click needs to become Zero.
Heres the source, it might make it easier to understand.
Option Explicit
Private Sub Cap_Click(Index As Integer)
Dim i As Long
Dim tempIndex As Long
Dim tempLoop As Long
tempLoop = CLng(Val(Cap(Index).Caption))
Cap(Index).Caption = "0"
tempIndex = Index + 1
Do Until tempLoop = 0
If tempIndex >= 12 Then
tempIndex = 0
End If
Cap(tempIndex).Caption = Val(Cap(tempIndex).Caption) + 1
tempLoop = tempLoop - 1
tempIndex = tempIndex + 1
Loop
End Sub
Private Sub Form_Load()
Dim i As Long
For i = 0 To (Cap.Count - 1)
Cap(i).Caption = (i + 1)
Next i
End Sub
Sub InetTest()
If Inet1.StillExecuting = True Then Exit Sub
If Len(Inet1.OpenURL("http://google.com")) <> 0 Then MsgBox "Site is up", vbOKOnly, "Simple test"
End Sub

