MyString = Project Properties >> Application >> Assembly Information >> GUID ? How do I do this?

The line of source code I was referring to in my question is Line # 15.

this should work -

import System.Reflection assembly
 
Dim assembly as Assembly = Assembly.GetExecutingAssembly()
Dim sGuid as String
sGuid = (assembly.GetType().GUID.ToString())

What about:
my.Application.Info.GetType.GUID.ToString

dbraunschweig's,

Congratulations you got it.

SameerJagdale you almost got it too, but your solution yielded a GUID that was not the one I was looking for. Please see the attached image files. I don't know for sure where the GUID your solution retrieved came from exactly. My educated guess is that every visual object or at least Windows Form visual objects has a GUID, and your solution retrieved the GUID of the Windows Form that was being displayed at the time that your code executed. But I was looking for the GUID of the "Project" object that was running. I reread my question, and I am sure that I worded my question to clearly indicate that is what I was looking for. The screen shot of the property sheet also showed that.

hnase, thank you for your suggestion, but I already tried that and got a syntax error.

dbraunschweig, I had to modify your code a little bit to get it to work, but I am absolutely OK with that. The "Attributes.Count" in the predicate of your IF statement gave me a syntax error that said "Count" was not a member of "System.Array". You can see the change that I made in the code snippet I uploaded. I see by your profile that you are very new to Experts-Exchange. This is a REALLY GOOD start. This was not an easy question. SameerJagdale's profile shows that he/she is really a very good "Expert", and he/she didn't quit hit the right bull's eye.

I have been reading about "Reflection", but I don't understand it well enough to use it successfully -- obviously! The solution offered by dbraunschweig and SameerJagdale will go a long way toward helping me understand "Reflection" well enough to use it. Thank you both very much.

Ted Palmer

Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Set the title of the form.
        Dim ApplicationTitle As String

        'Dim assembly As Assembly = assembly.GetExecutingAssembly()
        Dim strGuid As String
        'strGuid = (assembly.GetType().GUID.ToString())
        strGuid = GetGUID()

        'Debug Code -- Save 2010-04-05 by Ted Palmer
        MessageBox.Show("Value strGuid: " & strGuid, _
        "Subrogation Debug Message:", MessageBoxButtons.OK, MessageBoxIcon.Stop)

        If My.Application.Info.Title <> "" Then
            ApplicationTitle = My.Application.Info.Title
        Else
            ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
        End If
        Me.Text = String.Format("About {0}", ApplicationTitle)
        ' Initialize all of the text displayed on the About Box.
        ' TODO: Customize the application's assembly information in the "Application" pane of the project 
        '    properties dialog (under the "Project" menu).
        Me.LabelProductName.Text = My.Application.Info.ProductName
        Me.LabelVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
        Me.LabelCopyright.Text = My.Application.Info.Copyright
        Me.LabelCompanyName.Text = My.Application.Info.CompanyName
        Me.TextBoxDescription.Text = My.Application.Info.Description
    End Sub 'AboutBox1_Load

    Private Function GetGUID() As String
        Dim Assembly As System.Reflection.Assembly
        Dim Attributes As Object()

        Assembly = System.Reflection.Assembly.GetExecutingAssembly
        Attributes = Assembly.GetCustomAttributes(GetType(System.Runtime.InteropServices.GuidAttribute), False)

        'If Attributes.Count > 0 Then
        If Not IsNothing(Attributes) Then
            Return DirectCast(Attributes(0), System.Runtime.InteropServices.GuidAttribute).Value.ToString
        Else
            Return ""
        End If
    End Function 'GetGUID()

Select allOpen in new window

SameerJagdale-sGUID.bmp
dbraunschweig-sGUID.bmp

THANK YOU..!!

Your are very GOOD! I can tell.

Ted Palmer