السوال يحتاج الى أجابة

بقية الارقام موجودة بالمنتدى و يمكن الحصول عليها من اي كتاب ( Ascii)

بالنسبة للكود فهو صحيح طالما التايمر interval به عدد اكبر من صفر

مشكور أخوي على الرد ولكن اريد الكود الذي يجعل الصورة تتحرك من دون توقف

هل تريد مثلا أنها عندما تصل إلى قمة النموذج ترجع و تبدأ الحركه من جديد

نعم

كل ما عليك عملة هو وضع Direction Flag و الـSpeed flag و على أساسهم تقوم بتحديد أنتاجه الـObjectالذى تريد تحريكة

يمكنك صنع هذا بجملة if

if image1.top = 0 then
image1.top = form1.height
end if

جربه وقوللى عمل أيه معاك

image1.top=image1.top-100
if image1.top<=0 then image1.top=form1.height

اقتباس

لدي السؤال الرجاء الإجابة عليه حبيت معرفة ارقام اللوحة المفاتيح حيث أنKey code لــــ ENTER=13 والمسافة=23.أريد معرفة بقية الارقام

ضع هذا الكود , ثم اضغط على الزر الذي تريد معرفة الكود الخاص به

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox KeyCode
End Sub