object loaded ????

if <objectref> is nothing then
  \' object ikke loaded
else
  \' object loaded
end if

Private Function ObjectLoaded(Obj as Object)


end function

Private Function ObjectLoaded(Obj as Object)
  On Error Goto ErrHandl

  ObjectLoaded = True
  \'An error is raised if the object is not loaded!!! Is called error trapping!
  if Obj.Visible
  end if
  Exit Function
ErrHandl:
  \'An error is raised because the object is not loaded! Return False!
  ObjectLoaded = False
Exit Function

tak for hjælpen :)

selvtak - og tak for points