Что в этом клочке кода не так?

[Reht]

Вот... В папке с программой три фоновых рисунка(Image1.jpg, Image2.jpg, Image3.jpg), которые по идее случайно сменяют друг друга.

Private Sub Timer1_Timer()
Me.Picture = App.Path & "\Image" & (Int(Rnd * 3) + 1) & ".jpg"
End Sub

Жалуется на несовпадение типов. Руки у меня кривые али мозг иссохся?..

EDIT: Писец. Прошу прощения. LoadPicture забыл добавить. Ещё раз извините ламера.

[Gigahard]

У свойства Form.Picture, не текстовый тип данных. Это объект IPictureDisp.
Посмотри через Object Browser.

[alibek]

Set Me.Picture = ...

[Sirik]

а может не хватает CSTR ?

[Konst_One]

Код: Выделить всё

Me.Picture =LoadImage( App.Path & "\Image" & (Int(Rnd * 3) + 1) & ".jpg" )

[keks-n]

А что такое "LoadImage", никогда не слышал.

Код: Выделить всё


Me.Picture =LoadPicture( App.Path + "\Image" + (Int(Rnd * 3) + 1) + ".jpg" )


[Konst_One]

это шутка

[Reht]

вообще-то я сделал добавление к своему посту ещё до первого ответа... Ухх, советчики, млин...

[GAGArin]

Reht
Я правильно понял что у тебя уже все работает? У меня так как ты пишешь, все пашет...

[Reht]

Да, естественно
Админы, модеры! Тему можно закрывать...