MainWindowViewModel

Imports Prism.Commands
Imports Prism.Mvvm

Friend Class [MainWindowViewModel]
    Inherits BindableBase

    Private _num As Integer = 0

    Public Sub New()
        MyCommand = New DelegateCommand(AddressOf MyCommandExecute)
    End Sub

    Private _texto As Integer
    Public Property Texto As Integer
        Get
            Return _texto
        End Get
        Set(ByVal value As Integer)
            SetProperty(_texto, value)
        End Set
    End Property

    Public ReadOnly Property MyCommand As DelegateCommand

    Private Sub MyCommandExecute()
        _num = _num + 1
        Texto = _num.ToString()
    End Sub
End Class