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
        If count = 350 Then
            count = 0
        ElseIf count = 351 Then
            count = 1
        ElseIf count = 352 Then
            count = 2
        ElseIf count = 353 Then
            count = 3
        ElseIf count = 354 Then
            count = 4
        ElseIf count = 355 Then
            count = 5
        ElseIf count = 356 Then
            count = 6
        ElseIf count = 357 Then
            count = 7
        ElseIf count = 358 Then
            count = 8
        ElseIf count = 359 Then
            count = 9
        Else
            count += 10 ' Zahl um 10 erhöhen
        End If
        lbValue.Text = count.ToString() ' Zahl im Label anzeigen
    End Sub
 
    Private Sub btDown10_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btDown10.Click
        If count = 0 Then
            count = 350
        ElseIf count = 1 Then
            count = 351
        ElseIf count = 2 Then
            count = 352
        ElseIf count = 3 Then
            count = 353
        ElseIf count = 4 Then
            count = 354
        ElseIf count = 5 Then
            count = 355
        ElseIf count = 6 Then
            count = 356
        ElseIf count = 7 Then
            count = 357
        ElseIf count = 8 Then
            count = 358
        ElseIf count = 9 Then
            count = 359
        Else
            count -= 10 ' Zahl um 10 erniedrigen
        End If
        lbValue.Text = count.ToString() 'Zahl im Label anzeigen
    End Sub
 
    Private Sub btUp5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btUp5.Click
        If count = 355 Then
            count = 0
        ElseIf count = 356 Then
            count = 1
        ElseIf count = 357 Then
            count = 2
        ElseIf count = 358 Then
            count = 3
        ElseIf count = 359 Then
            count = 4
        Else
            count += 5 ' Zahl um 5 erhöhen
        End If
        lbValue.Text = count.ToString() ' Zahl im Label anzeigen
    End Sub
 
    Private Sub btDown5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btDown5.Click
        If count = 0 Then
            count = 355
        ElseIf count = 1 Then
            count = 356
        ElseIf count = 2 Then
            count = 357
        ElseIf count = 3 Then
            count = 358
        ElseIf count = 4 Then
            count = 359
        Else
            count -= 5 ' Zahl um 5 erniedrigen
        End If
        lbValue.Text = count.ToString() 'Zahl im Label anzeigen
    End Sub
 
    Private Sub btUp1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btUp1.Click
        If count >= 359 Then
            count = 0
        Else
            count += 1 ' Zahl um 1 erhöhen
        End If
        lbValue.Text = count.ToString() ' Zahl im Label anzeigen
    End Sub
 
    Private Sub btDown1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btDown1.Click
        If count <= 0 Then
            count = 359
        Else
            count -= 1 ' Zahl um 1 erniedrigen
        End If
        lbValue.Text = count.ToString() 'Zahl im Label anzeigen
    End Sub
 
    Private Sub btConfirm_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btConfirm.Click
        Select Case MessageBox.Show("Do you want to set Heading to " & count & _
        " ?", "Heading", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            Case Windows.Forms.DialogResult.Yes
                MsgBox("Heading set to " & count & " !", , "Heading")
            Case Windows.Forms.DialogResult.No
                'Do Nothing
        End Select
    End Sub  
End Class