Why doesnt this work?

[mettodog]

If Me.OpenText.FileName = "*.pge" Then Me.Icon = pge.Picture
If Me.OpenText.FileName = "*.note" Then Me.Icon = note.Picture

 

[dpaulson]

If Me.OpenText.FileName = "*.pge" Then Me.Icon = loadpicture("pge.Picture&quot
If Me.OpenText.FileName = "*.note" Then Me.Icon = loadpicture("note.Picture &quot
David Paulson

 

[mettodog]

thanks for your help, but the form when loaded still displayes the vb icon.

 

[dpaulson]

OK, How about this

If right$(Me.OpenText.FileName,3) = "pge" Then Me.Icon = loadpicture("pge.Picture&quot
If right$(Me.OpenText.FileName,4) = "note" Then Me.Icon = loadpicture("note.Picture &quot



David Paulson

 

[mettodog]

that worked, but i had to change a few things. this is what the code is in case anyone is interested:


If Right$(Me.OpenText.FileName, 3) = "pge" Then Me.Icon = pge.Picture
If Right$(Me.OpenText.FileName, 4) = "note" Then Me.Icon = note.Picture

 

[GDX]

Isn't loadpicture only used when getting a picture from your hard drive? Gordon R. Durgha
gd@vslink.net

http://www.vslink.net

http://www.brainbench.com/transcript.jsp?pid=1217371