Type Casting - VB6

Num laço (For) percorrer todos os controles do Form em VB6.

Private Sub Command1_Click()
  Dim ZnobjCtlAux As Control
  Dim i As Integer
  
  For Each ZnobjCtlAux In Me.Controls
   ZnobjCtlAux.Tag = -1
 Next ZnobjCtlAux
  
  For i = 0 To Me.Controls.Count - 1
    MsgBox Me.Controls(i).Name & " - " & Str(Me.Controls(i).Tag)
    
        'MsgBox Me.Controls(i).Type & " - " & Str(Me.Controls(i).Tag)
     
    If TypeOf Me.Controls(i) Is DTPicker Then
      MsgBox "Data picker"
    
    End If
  Next i
  
    
End Sub