Dim koordx% = MousePosition.X - Me.Location.X 'Mauskoordinate für Zoom
        Dim koordy% = MousePosition.Y - Me.Location.Y
 
        Dim xmaxa# = xmax                               'RESET-Werte
        Dim xmina# = xmin                               'Das ist das Zoomfenster
        Dim ymaxa# = ymax
        Dim ymina# = ymin
 
        x = xmax - xmin                                  'Achsenlänge                  
        y = ymax - ymin
 
        If e.Delta > 0 Then                               'REIN-zoomen
            xmax = x * 0.5 * 0.75 + koordx                '0.75 = Zoomfaktor
            xmin = -x * 0.5 * 0.75 + koordx
            ymax = y * 0.5 * 0.75 + koordy
            ymin = -y * 0.5 * 0.75 + koordy
 
        Else                                               'RAUS-zoomen
 
            xmax = x * 0.75 + koordx                       '0.75 = beliebiger 
            ' Faktor
            xmin = -x * 0.75 + koordx
            ymax = y * 0.75 + koordy
            ymin = -y * 0.75 + koordy
 
        End If