как проверить содержимое Image в UserForm в VB Excel

[groonel]

Подскажите, пож-та, уже запарился методом тыка. Искал похожее зесь, не нашел.
У меня в UserForm есть картинка, Image1. Мне надо проверить, если в Image1 загружена картинка v0.gif, то загрузить туда v1.gif

Делал так:
If Image1.Picture=LoadPicture("***\v0.gif") Then
Image1.Picture=LoadPicture("***\v1.gif")
End If

Знаю, что это тупо, да и не работает, т.к. LoadPicture-это загрузка картинки, а ее проверять нельзя. Но как тогда сделать это? Помогите..

[alibek]

Ее проверить можно, но бессмысленно, т.к. функция возвращает StdPicture со свойством по умолчанию Handle. А хендл, ествественно, будет каждый раз разный.
Попробуй загрузить в массив и сравнивать массивы бинарно.
Но еще лучше -- при загрузке картинки ставить метку, какой файл был загружен. И сравнивать по метке. Метка -- это свойство Tag или какая-нибудь переменная.

[groonel]

Метку присвоить таким образом:
LoadPicture("")=a ?
а потом проверять
If Image1.Picture=a и так дальше ?
просто я не опытен еще в этом деле..

Если не так, то подскажи, пож-та

[alibek]

Image1.Tag = "C:\...\v0.gif"
Image1.Picture = LoadPicture(Image1.Tag)

...

If Image1.Tag = "C:\...\v0.gif" Then
Image1.Tag = "C:\...\v1.gif"
Image1.Picture = LoadPicture(Image1.Tag)
End If

[groonel]

Огромнейшее тебе спасибо, все работает! Завтра тогда, возмоно, зачет получу!!

[alibek]

Мдя... Вот так давай советы.

[groonel]

Да нет, это лишь часть моего задания. Я на этом застрял и все, никуда. Сейчас буду доделывать. А делаю я игру "Виселица". Там надо картинки менять в зависимости от ошибки..