Function knopka(x1,x2,y1,y2,vImage);nujno v opredelenii funktsii sozdat' peremennuyu dlya kartinki
If MouseX()>x1 And MouseX()<x2 And MouseY()>y1 And MouseY()<y2 Then
DrawImage vImage,x1,y1
..........................................
вот здесь грузи че хочеш и как хочеш
..........................................
Return True
EndIf
End Function
ps.
)