EnumFormsOpen

Function ContaFin(value As Boolean) As Integer
g = GetDesktopWindow
k = GetWindow(g, GW_CHILD)
f1 = GetWindow(k, GW_FIRST)
f2 = GetWindow(k, GW_LAST)
k = f1
Do
If value Then DoEvents
i = i + 1
k = GetWindow(k, GW_NEXT)
' Dim o As RECT **QUI CI METTI IL CONTROLLO**

' t = GetWindowRect(k, o) **DELLE DIMENSIONI E DI ALTRO**

' ox = o.Right - o.Left

' oy = o.Top - o.Bottom

' If ox > 1 And oy > 1 Then MsgBox (k)

Loop Until k = f2
DoEvents
ContaFin = i
End Function