//File:Window.xaml.vb Imports System Imports System.Collections.Generic Imports System.Text Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Data Imports System.Windows.Documents Imports System.Windows.Input Imports System.Windows.Media Imports System.Windows.Media.Imaging Imports System.Windows.Shapes Namespace WpfApplication1 Public Partial Class MainWindow Inherits System.Windows.Window Private currValue As Integer = 0 Public Sub New() InitializeComponent() lblCurrentValue.Content = currValue End Sub Protected Sub repeatAddValueButton_Click(sender As Object, e As RoutedEventArgs) currValue += 1 lblCurrentValue.Content = currValue End Sub Protected Sub repeatRemoveValueButton_Click(sender As Object, e As RoutedEventArgs) currValue -= 1 lblCurrentValue.Content = currValue End Sub End Class End Namespace