Public Class Form1
    Dim skalfaktor As Int32 = 0
 
    Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
        If e.Delta > 0 Then
            skalfaktor = skalfaktor + Math.Abs(e.Delta)
            Me.Text = skalfaktor.ToString
        ElseIf e.Delta < 0 Then
            skalfaktor = skalfaktor - Math.Abs(e.Delta)
            Me.Text = skalfaktor.ToString
        End If
    End Sub
End Class