Public Class WindowPanelVM
   Inherits VMBase

   Private m_ButtonList As New List(Of ButtonListItem)
   Public ReadOnly Property ButtonList As List(Of ButtonListItem)
      Get
         Return m_ButtonList
      End Get
   End Property

   Private m_WindowPanel_Visibility As Visibility
   Public ReadOnly Property WindowPanel_Visibility As Visibility
      Get
         Return m_WindowPanel_Visibility
      End Get
   End Property
   Friend Sub SetWindowPanelVisibility(bValue As Boolean)
      m_WindowPanel_Visibility = If(bValue, Visibility.Visible, Visibility.Collapsed)
      NotifyPropertyChanged(NameOf(WindowPanel_Visibility))
   End Sub

   Sub New()
      ' Creo riferimento a questa classe in Map
      Map.SetRefWindowPanelVM(Me)
      ' Se attivo, inizializzo i bottoni leggendoli da file ini
      If IniFile.IsActiveWindow() Then
         ' Inizializzo i bottoni leggendoli da file ini
         Dim BtnIndex As Integer = 1
         Dim CurrBtn As ButtonListItem = Nothing
         While GetPrivateProfileButton(S_WINDOW, K_WINDOWBUTTON & BtnIndex, IniFile.m_sWindowDirPath, CurrBtn)
            m_ButtonList.Add(CurrBtn)
            BtnIndex += 1
         End While
      End If
   End Sub

End Class