Pa, ako sam te dobro shvatio, bukvalno resenje tvog problema bi bilo:
Code:
Private Sub Command1_Click()
Static intProcInc As Integer
intProcInc = intProcInc + 1
Select Case intProcInc
Case 1
'Zoves prvu proceduru
Case 2
'Zoves drugu proceduru
'...
End Select
End Sub
Ali, mozes i bez SELECT...CASE, koristenjem niza i CallByName komande:
Code:
Private Sub Command1_Click()
Dim varProcedure As Variant
Static intProcInc As Integer
'Niz koji sadrzi imena procedura koje su implementirane
varProcedure = Array("Procedura1", "Procedura2", "Procedura3")
'Provera da li se stiglo do kraja, pa vracanje na pocetak
If intProcInc > UBound(varProcedure) Then intProcInc = 0
'Poziv procedure
CallByName Me, varProcedure(intProcInc), VbMethod
intProcInc = intProcInc + 1
End Sub
Public Sub Procedura1()
'
End Sub
Public Sub Procedura2()
'
End Sub
Public Sub Procedura3()
'
End Sub
Eto, istovremeno smo napisali slicno resenje, a da se nismo ni dogovarali ;)