есть код:
While Not KeyHit (key_ESCAPE)
Cls
If KeyDown(Key_A) Then zoom=zoom+0.1
If KeyDown(Key_Z) Then zoom=zoom-0.1
SetScale( Zoom , Zoom )
DrawImage (Имя_картинки, x*zoom, y*zoom)
Flip
Wend
Но... но он зумут вот так:
С такого:
На такое:
А надо чтоб:
Подскажите как?
А то я и бубен сломал, и изрисовал пол тетради.. невкуриваю чтот эту простую задачку..