[sasa no love]

3amo كتب :السلام عليكم ورحمة الله وبركاته
جرب هذا الكود

كود :

Private Sub Command1_Click()Label1.Caption = Label1.Caption + 1
End Sub


Private Sub Form_Load()
Label1.Caption = "0"
End Sub

الف شكر يا غالى
الكود يعمل بنجاح
كان الخطأ منى اسف
طلب اخر لو سمحت عندى صوره تحركه وضعتها بالفورم وشغاله تمام بس اللى اريدو كود اظهار الصوره عند الضغط على الزر