Private Sub Increase(ByVal sender As Object, ByVal e As RoutedEventArgs)
Num = CInt(valueText.Text)
valueText.Text = ((Num + 1).ToString())
End Sub
Private Sub Decrease(ByVal sender As Object, ByVal e As RoutedEventArgs)
Num = CInt(valueText.Text)
valueText.Text = ((Num - 1).ToString())
End Sub