Private Sub GetAssemblyVersion(ByVal filename)
        Dim exename As String = filename
        'Dim assembly As System.Reflection.Assembly = System.Reflection.Assembly.Load(exename)
        'verInfo = assembly.GetName().Version.ToString()
        Dim myAsm As Assembly = Reflection.Assembly.Load(exename)
        Dim aName As AssemblyName = myAsm.GetName()
        ' Store the version number in a Version object.
        Dim ver As Version = aName.Version
        ' Display the version number of MyAssembly.
        verInfo = verInfo & filename & "             " & ver.ToString() & vbCrLf
    End Sub 'GetAssemblyVersion