Private Sub btUp10_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btUp10.Click
        count += 10
        If count = 360 Then
            count = Modulo
        End If
        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
        If count = 360 Then
            count = Modulo
        End If
        lbValue.Text = count.ToString
    End Sub