В форме:

Option Explicit

Private Declare Function GetTopWindow Lib "user32" (ByVal hwnd As Long) As Long
Private mobjHandles As New Dictionary 'Нужна ссылка на Microsoft Scripting Runtime

Private Sub Command1_Click()
Dim lngTopWindowHandle As Long

lngTopWindowHandle = GetTopWindow(Me.hwnd)

MsgBox mobjHandles.Item(lngTopWIndowHandle).Name
End Sub

Private Sub Form_Load()
Dim oControl As Control

On Error Resume Next

For Each oControl In Me.Controls
mobjHandles.Add oControl.hwnd, oControl
Next oControl

End Sub

VladConn

Как так? Каков вопрос...

ОК, в дополнение к вышеизложенному этот пример перечислит имена контролей в порядке ZOrder, кроме Top. Последний - см. предыдущий пример.

Option Explicit

Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag As Long) As Long
Private Const GW_HWNDNEXT = 2
Private Const GW_HWNDPREV = 3
Private mobjHandles As New Dictionary

Private Sub Command1_Click()
Dim lngNextWindowHandle As Long
Dim oControl As Control

On Error Resume Next
For Each oControl In Me.Controls

lngNextWindowHandle = GetNextWindow(oControl.hwnd, GW_HWNDNEXT)
MsgBox mobjHandles.Item(lngNextWindowHandle).Name
Next oControl

End Sub

Private Sub Form_Load()
Dim oControl As Control
On Error Resume Next

For Each oControl In Me.Controls
mobjHandles.Add oControl.hwnd, oControl
Next oControl

End Sub

Да, я понимаю. Эти значения идут в том порядке, в каком и имена. Правильно? Вот в том порядке, каком идут имена и присваивайте условные значения Z order. Пример дан для неграфических контролей, которые тоже окна. Там остаются, насколько я понимаю, MDI child формы (1й уровень), и метки с графическими объектами (3й уровень). А для остального, по-моему Z order в VB6 не используется.

Я исхожу из определения и смысла ZOrder в VB6