Вопрос
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = App.Path & "\Grafica\CloseDn.bmp"
End Sub
Почему на второй строчке возникает "Type Mismatch"? С выделением "&"…
Ответ
Нужно:
Image1.Picture = LoadPicture(App.Path & "\Grafica\CloseDn.bmp")
tagir
Copyright 
2000-2004 Сообщество Чайников
Контактная информация