Клонирование картинки

[VBTerminator]

Как сделать, чтобы картинка, загружаемая в Image, автоматически множилась (как фоновые рисунки на веб-страницах)? Если Image не поддерживает такую возможность, то какой контрол лучше всего использовать для таких целей?

[Debugger]

Решал такую задачу. Решил при помощи PictureBox и BitBlt (и пары функций для создания и получения размеров изображения).

[VBTerminator]

Решал такую задачу.

Дайте ссылочку, пожалуйста.

[Debugger]

Какую еще ссылочку? Нет ее. Мозгом пользуйся, а еще API Guide скачай.
Могу дать готовый класс. Хочу его еще в кирпичи выложить, да вот вроде бы недотягивает слегка.

[Mikle]

Код: Выделить всё

Private Sub Form_Load()
Dim pic As IPicture
Dim x As Long, y As Long
Dim xx As Long, yy As Long
  AutoRedraw = True
  ScaleMode = vbPixels
  Show
  Set pic = LoadPicture("1.bmp")
  xx = ScaleX(pic.Width, vbHimetric, vbPixels)
  yy = ScaleY(pic.Height, vbHimetric, vbPixels)
  For y = 0 To ScaleHeight Step yy
    For x = 0 To ScaleWidth Step xx
      PaintPicture pic, x, y
    Next x
  Next y
End Sub