Private Sub myPb1_Paint _
  (sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles pb1.Paint
 
If out_rect.Width = 0 Then Exit Sub ' nach Load -> Exit Sub
 
Dim pbRectOut As Rectangle     
 
'*** Ausgabe-Rechteck 
' **************************************************************
  pbRectOut.X = CInt((myPb1.Width - out_rect.Width / decZoom) / 2) 
  pbRectOut.Y = CInt((myPb1.Height - out_rect.Height / decZoom) / 2
  pbRectOut.Width = CInt(out_rect.Width / decZoom
  pbRectOut.Height = CInt(out_rect.Height / decZoom
 
  If chbVollbild.Checked = False And HScrollBar1.Value <> 0 Then
    e.Graphics.DrawRectangle(Pens.White, pbRectOut)
  End If
 
'*** Diagonalen 
' ********************************************************************
  If chbDiagonalen.Checked = True And HScrollBar1.Value <> 0 And _
    chbVollbild.Checked = False Then
    Dim PenDiag As Pen = New Pen(Color.White)
    PenDiag.DashStyle = DashStyle.DashDotDot
    Dim pntD(3) As Point
 
    pntD(0).X = CInt((myPb1.Width - bmp_In.Width / decZoom) / 2)
    pntD(0).Y = CInt((myPb1.Height - bmp_In.Height / decZoom) / 2)
    pntD(1).X = CInt(pntD(0).X + bmp_In.Width / decZoom)
    pntD(1).Y = pntD(0).Y
    pntD(2).X = pntD(0).X
    pntD(2).Y = CInt(pntD(0).Y + bmp_In.Height / decZoom)
    pntD(3).X = pntD(1).X
    pntD(3).Y = pntD(2).Y
    e.Graphics.DrawLine(PenDiag, pntD(0), pntD(3))
    e.Graphics.DrawLine(PenDiag, pntD(1), pntD(2))
 
    e.Graphics.DrawLine(PenDiag, pntD(0), pntD(1))
    e.Graphics.DrawLine(PenDiag, pntD(1), pntD(3))
    e.Graphics.DrawLine(PenDiag, pntD(3), pntD(2))
    e.Graphics.DrawLine(PenDiag, pntD(2), pntD(0))
  End If
 
'*** Raster 
' ************************************************************************
  If chbRaster.Checked = True Then
    . . .
  End If
  End Sub