Progress Meter on Forms

[rccline]

I have a form with a With SubCommand that runs on a Click Event.

I want to place a ProgressMeter on my form and show the progress of the Click event.

(1) Can I run a Function from within a Sub_MyEvent_Click()?

The subevent will not run if I choose Option Explicit. Microsofts info on Progress meter is this:

Function Meter ()
Dim Progress_Amount As Integer, RetVal As Variant
MyTable.MoveLast
Count=MyTable.Recordcount
MyTable.MoveFirst
RetVal=sysCmd(1, "Reading Data...",Count)
For Progress_Amount=1 ToCount
RetVal=SysCmd(2, Progress_Amount)
Debug.PrintMyTabel[contactName]
MyTable.MoveNext
Next Progress_Amount
RetVal=sysCmd(3)
End Function

How do I integrate this with my SubEvent_Click()?

Robert