Imports EgtUILib

Public Class AboutBoxWD

    ' Riferimento alla MainWindow
    Dim m_MainWindow As MainWindow = Application.Current.MainWindow

    Private Sub AboutBoxWD_Initialized(sender As Object, e As EventArgs)
        DescriptionLbl.Content = My.Application.Info.Description.ToString()
        VersionLbl.Content = "Versione: " + My.Application.Info.Version.ToString()
        CopirightLbl.Content = My.Application.Info.Copyright.ToString()
        ExitBtn.Content = EgtMsg(MSG_MISSINGKEYWD + 4)          'Ok
    End Sub

    Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
        Close()
    End Sub

End Class