I found this on google but would anyone know how to declare the variables such as
dim btn as button in foxPro? And is there a way to return the number of each button?

Thanks Steve

Dim btn As Button
Dim lSpace As Long
Dim i As Long
Dim sh As Worksheet
Dim rng As Range
lSpace = 1
For Each sh In ThisWorkbook.Worksheets
If sh.Buttons.Count > 1 Then
Set rng = sh.Range("C1")
i = 0
For Each btn In sh.Buttons
With btn
'return the button number?
End With
i = i + lSpace
Next
End If
Next