'Modul
Option Explicit
 
Global Const SRCCOPY = &HCC0020
 
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, _
      ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
      ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc _
      As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
 
Private Sub Form_Paint()    'Hintergrund Kacheln
  Dim H As Integer  'Horizontal
  Dim V As Integer  'Vertikal
 
  For V = 0 To frmStamm.Height Step (picForm.Height - 5)
    For H = 0 To frmStamm.Width Step (picForm.Width - 5)
      BitBlt Me.hDC, H, V, picForm.ScaleWidth, picForm.ScaleHeight, _
             picForm.hDC, 0, 0, SRCCOPY
    Next H
  Next V
End Sub
'Bild laden 
 On Error GoTo Fehler
    With cd1
        .CancelError = True
        .Flags = &H281800
        .Filter = "Bilder |*.bmp;*.jpg;*.gif||"
        .ShowOpen
        picForm.Picture = LoadPicture(.Filename)
        Me.AutoRedraw = False
        Form_Paint
    End With
    Exit Sub
Fehler: