Dim as Any Pointer vid1, vid2, vid3

vid1  =  ImageCreate(20,20)
vid2  =  ImageCreate(20,20)
vid3  =  ImageCreate(20,20)

Bload("*.bmp", vid1)
Bload("*.bmp", vid2)
Bload("*.bmp", vid3)

Type Obj
x As  Short                          ' координата  Х
y As Short                           ' координата Y
speed as Byte                      ' скорость

Declare Sub Move()             ' движение
Declare Constructor()           ' конструктор   
Declare Destructor()            ' деструктор
End Type

Constructor Obj()
          Dim as Any Pointer vid1, vid2, vid3

          vid1  =  ImageCreate(20,20)
          vid2  =  ImageCreate(20,20)
          vid3  =  ImageCreate(20,20)

          Bload("*.bmp", vid1)
          Bload("*.bmp", vid2)
          Bload("*.bmp", vid3)
End Constructor

Destructor Obj()
          ImageDestroy(vid1)
          ImageDestroy(vid2)
          ImageDestroy(vid3)
End Destructor

Sub Obj.Move()
          this.x += this.speed
End Sub

Dim Spryte1 as Obj
Dim Spryte2 as Obj

'{ класс изображений

  Type ClassImage
   As Any Pointer vid1, vid2, vid3
   Declare Constructor()           ' конструктор
   Declare Destructor()            ' деструктор
  End Type

  Constructor ClassImage()

   vid1  =  ImageCreate(20,20)
   vid2  =  ImageCreate(20,20)
   vid3  =  ImageCreate(20,20)

   BLoad("*.bmp", vid1)
   BLoad("*.bmp", vid2)
   BLoad("*.bmp", vid3)
  End Constructor

  Destructor ClassImage()
   If vid1<>0 Then
    ImageDestroy(vid1)
   EndIf
   If vid2<>0 Then
    ImageDestroy(vid2)
   EndIf
   If vid3<>0 Then
    ImageDestroy(vid3)
   EndIf
  End Destructor

'}

'{ класс объектов

  Type Obj
   ci As ClassImage Ptr
   x As  Short                          ' координата  Х
   y As Short                           ' координата Y
   speed As Byte                      ' скорость
   Declare Sub Move()             ' движение
   Declare Constructor(As ClassImage Ptr)           ' конструктор
  End Type

  Constructor obj(ci As ClassImage Ptr)
   this.ci = ci
  End Constructor

  Sub Obj.Move()
   this.x += this.speed
  End Sub

'}

' создаем класс изображений один раз и
' далее можем использовать в любых объектах
Dim ci As ClassImage Ptr = New ClassImage

' создаем классы объектов
dim obj_1 As Obj Ptr = New obj(ci)
Dim obj_2 As Obj Ptr  = New obj(ci)

' удаляем объекты
Delete obj_1
Delete obj_2
Delete ci

Obj_1 -> ci -> vid1  'например

ci -> vid1