Imports System.Configuration

Public Class AppConfig

    Public Shared Function GetConfiguration() As ConfigValues

        Dim appfile As String = My.Application.Info.DirectoryPath & "\" & My.Application.Info.ProductName & ".exe"
        Dim appconfig As Configuration = ConfigurationManager.OpenExeConfiguration(appfile)
        Dim appsettings As AppSettingsSection = appconfig.AppSettings
        Dim settings As KeyValueConfigurationCollection = appsettings.Settings

        Dim values As New ConfigValues() With {
            .username = settings.Item("dpma_username").Value,
            .password = settings.Item("dpma_password").Value,
            .query = settings.Item("dpma_query").Value,
            .queryIgnore = settings.Item("dpma_query_ignore").Value,
            .connstring = settings.Item("sql_connstring").Value,
            .database = settings.Item("sql_database").Value,
            .searchType = settings.Item("search_type").Value
        }

        Return values
    End Function

    Public Shared Function GetVersion()
        Dim assembly As Reflection.Assembly = Reflection.Assembly.GetExecutingAssembly()
        Dim fvi As FileVersionInfo = FileVersionInfo.GetVersionInfo(assembly.Location)
        Dim version As String = fvi.FileVersion
        Return version
    End Function

End Class

Public Class ConfigValues
    Public username As String
    Public password As String
    Public query As String
    Public queryIgnore As String
    Public connstring As String
    Public database As String
    Public searchType As String
End Class