Public Function LoadInGrid(ByVal ct As Object) As Long
 MsgBox ct.Name
End Function

Private Sub Control_ControlSelecting(ByVal Control As Object, Cancel As Boolean)
  Select Case TypeName(Control)
  
    Case "Label"
        LoadInGrid (Control)
   End Select
  
End Sub

Private Declare Sub RtlMoveMemory _
  Lib "kernel32" _
 (ByRef Target As Any, _
  ByRef Source As Any, _
  ByVal Length As Long)

Public Function PtrObj(ByVal Pointer As Long) As Object
  Dim SoftRef As Object

  If Pointer = 0 Then
    Exit Function
  End If

  RtlMoveMemory SoftRef, Pointer, 4

  Set PtrObj = SoftRef

  RtlMoveMemory SoftRef, 0&, 4

FunctionExit:
  Exit Function

FunctionError:
  Set PtrObj = Nothing
  Resume FunctionExit

End Function

Public Function LoadInGrid(ByVal ct As Long) As Long
   Dim obj As Object
   Set obj = PtrObj(ct)
  MsgBox obj.Name
 End Function


Private Sub FormDesigner_ControlSelecting(ByVal Control As Object, Cancel As Boolean)
  Select Case TypeName(Control)
  
    Case "Label"
        LoadInGrid (ObjPtr(Control))
   End Select
  
End Sub