Sub TileBitmap(Target As Object, Bitmap As StdPicture) Dim x As Single Dim y As Single Dim bmpWidth As Single Dim bmpHeight As Single
bmpWidth = Target.ScaleX(Bitmap.Width, vbHimetric, Target.ScaleMode) bmpHeight = Target.ScaleY(Bitmap.Height, vbHimetric, Target.ScaleMode) For x = 0 To Target.Width Step bmpWidth For y = 0 To Target.Height Step bmpHeight Target.PaintPicture Bitmap, x, y Next Next End Sub |