Displaying the correct Outlook icon based on it's version

I'm using Outlook funtions from within my program using the following code:

X = Outlook.Application.Version
Select Case Int(Val(X))
Case 14
OutlookDetected.Caption = "Outlook 2010"
Case 12
OutlookDetected.Caption = "Outlook 2007"
Case 11
OutlookDetected.Caption = "Outlook 2003"
Case 10
OutlookDetected.Caption = "Outlook 2002"
Case 9
OutlookDetected.Caption = "Outlook 2000"
Case 8
OutlookDetected.Caption = "Outlook 97"
End Select

and all works fine. However, I want to display the proper Outlook icon based on it's specific version since MS changes it all the time. Is it possible to have VB6 read the Outlook.Exe and extract (or whatever) the proper icon image to be able to display it in a status bar within my program. I know I could manually capture all the different version icons and distribute them with the program and just load the different icon file based on the version detected in the code above, but I want to try to make it automatic.