Imports System.Math
Imports System.Drawing.Drawing2D
 
Public Class frmEditPic
  Dim bmp_In As Drawing.Bitmap: Dim bmp_Out As Bitmap: Dim out_rect As Rectangle
  Dim relPb, relPic As Decimal: Dim decZoom As Decimal
 
  Private Sub frmEditPic_Load (...) Handles Me.Load
  bmp_In = New Bitmap(frmStart.strPicPathFull)
  pb1.Image = bmp_In: pb2.Image = bmp_In: relPb = pb1.Width/pb1.Height
  End Sub
 
  Private Sub chb_CheckedChanged (...) Handles chbRaster.CheckedChanged, _
    chbDiagonalen.CheckedChanged
  pb1.Refresh
  End Sub
 
  >>>>>> Teil2
 
End Class