Public Class Form1
 
    Dim btValue As Integer
 
 
    Private Function count(ByVal btValue As Integer)
        '360 wird als Ausgang genommen, damit keine negativen Werte je nach 
        ' btValue erreicht werden können und mod 360 immer um zwischen 0 und 
        ' 359 zu liegen
        count = (360 + btValue) Mod 360
    End Function
 
 
    Private Sub btUp10_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btUp10.Click
        btValue = 10
        lbValue.Text = count.ToString()
    End Sub
 
 
    Private Sub btDown10_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btDown10.Click
        btValue = -10
        lbValue.Text = count.ToString()
    End Sub
End Class

Public Class Form1
    Dim count As Integer = 0 ' Aktuelle Startzahl
 
    Private Sub btUp10_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btUp10.Click
        count += 10
        count = count Mod 360
        lbValue.Text = count.ToString()
    End Sub
 
    Private Sub btDown10_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btDown10.Click
        count += 360 ' wird addiert um keine Zahlen im negativen Bereich zu 
        ' erhalten
        count -= 10
        count = count Mod 360
        lbValue.Text = count.ToString()
    End Sub
 
    Private Sub btUp5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btUp5.Click
        count += 5
        count = count Mod 360
        lbValue.Text = count.ToString()
    End Sub
 
    Private Sub btDown5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btDown5.Click
        count += 360 ' wird addiert um keine Zahlen im negativen Bereich zu 
        ' erhalten
        count -= 5
        count = count Mod 360
        lbValue.Text = count.ToString()
    End Sub
 
    Private Sub btUp1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btUp1.Click
        count += 1
        count = count Mod 360
        lbValue.Text = count.ToString()
    End Sub
 
    Private Sub btDown1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btDown1.Click
        count += 360 ' wird addiert um keine Zahlen im negativen Bereich zu 
        ' erhalten
        count -= 1
        count = count Mod 360
        lbValue.Text = count.ToString()
    End Sub
End Class