Public Class ReversePostPanelVM
   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_ReversePostPanel_Visibility As Visibility
   Public ReadOnly Property ReversePostPanel_Visibility As Visibility
      Get
         Return m_ReversePostPanel_Visibility
      End Get
   End Property
   Friend Sub SetReversePostPanelVisibility(bValue As Boolean)
      m_ReversePostPanel_Visibility = If(bValue, Visibility.Visible, Visibility.Collapsed)
      NotifyPropertyChanged(NameOf(ReversePostPanel_Visibility))
   End Sub

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

End Class