Option Explicit
 
Private Sub DrawDeckblattDesigner(ByVal xnav As Single, ByVal ynav As Single)
  Dim X As Single
  Dim Y As Single
 
  Me.panelDeckblatt.Cls
  Do Until Y >= Me.panelDeckblatt.Height
    Do Until X >= panelDeckblatt.Width
      X = X + xnav
      panelDeckblatt.PSet (X, Y)
    Loop
    Y = Y + ynav
    X = 0
  Loop
End Sub
 
Private Sub Form_Load()
  Me.ScaleMode = vbPixels
  Me.panelDeckblatt.ScaleMode = vbPixels
  Me.panelDeckblatt.AutoRedraw = True
 
  DrawDeckblattDesigner 15, 15
End Sub
 
Private Sub Form_Resize()
  If Me.WindowState <> vbMinimized Then
    panelDeckblatt.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
    DrawDeckblattDesigner 15, 15
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de