bunu ekleyin

Public Function hasParent(F As Object) As Boolean
  Dim bHasParent As Boolean
  On Error GoTo noParents

  bHasParent = Not (F.Parent Is Nothing)
  hasParent = True
  Exit Function

noParents:
  hasParent = False
End Function