Private Sub PictureBox1_MouseWheel(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseWheel
 
        If e.Delta > 0 Then
 
            Skalfaktor = Skalfaktor * Math.Abs(e.Delta)
            Me.ToolStripStatusLabel2.Text = "x " & Skalfaktor
 
        ElseIf e.Delta < 0 Then
 
            Skalfaktor = Skalfaktor / Math.Abs(e.Delta)
            Me.ToolStripStatusLabel2.Text = "x " & Skalfaktor
 
        End If
 
    End Sub