

Diese Zeile:

ImageView1.Image = Image.Load(sImagePaths[iImageIndex]) 

durch diesen Quelltext-Ausschnitt an allen Stellen ersetzen:

If toggleResetZoom.Value = True Then
   ImageView1.Image = Image.Load(sImagePaths[iImageIndex]) 
Else
   hImageIW = Image.Load(sImagePaths[iImageIndex]) 
   ImageView1.Update(hImageIW) ' Aktueller Zoom-Faktor wird übernommen
Endif


-----------------------------------------------------------------------------


'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Static Public Sub Main()
  Dim hForm As Form

  hForm = New FView
  hForm.ShowModal

End ' Main()
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~