Sub TrtObject(Obj As Object)
Dim Lbl As Label
Dim Btn As Button
Dim Lv As ListView
Dim Clv As CustomListView
Log(GetType(Obj))
If GetType(Obj) = "Label" Then
Lbl = Obj
'Label process ...
End If
If GetType(Obj) = "ListView" Then
Lv = Obj
'Lv process ...
End If
End Sub