Namespace EgtCAM5

   Public Class AboutBoxViewModel
      Inherits ViewModelBase

      Private m_AboutBoxVisibility As Visibility
      Public Property AboutBoxVisibility As Visibility
         Get
            Return m_AboutBoxVisibility
         End Get
         Set(value As Visibility)
            If value <> m_AboutBoxVisibility Then
               m_AboutBoxVisibility = value
               OnPropertyChanged("AboutBoxVisibility")
            End If
         End Set
      End Property
      ' Definizione comandi
      Private m_cmdClose As ICommand

#Region "COMMANDS"

#Region "CloseCommand"

      ''' <summary>
      ''' Returns a command that do Point.
      ''' </summary>
      Public ReadOnly Property CloseCommand As ICommand
         Get
            If m_cmdClose Is Nothing Then
               m_cmdClose = New RelayCommand(AddressOf Close, AddressOf CanClose)
            End If
            Return m_cmdClose
         End Get
      End Property

      ''' <summary>
      ''' Execute the Point.  This method is invoked by the PointCommand.
      ''' </summary>
      Public Sub Close(ByVal param As Object)
         AboutBoxVisibility = Visibility.Hidden
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanClose(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' CloseCommand

#End Region    ' Commands
   End Class

End Namespace