[عبد الله190]

السلام عليكم
أعطيك هذا الكود باستعمال command1 من أجل إنطلاق أو إيقاف الضغط على الـ command2
ضع على الفورم Timer و2 أزرار command ثم أضبط خاصية Interval للمؤقت Timer على 1 ميلي ثانية
ثم أكتب الكود التالي ولكي تتأكد أن الضغط مستمر على commnd2 ضع على الفورم أداة نصtextbox1 إجعل فيها الأرقام متزايدة لكل ضغطة تزداد بواحد أو بجزء من الواحد ومنه قم بتكييف هذا الكود مع برنامجك

كود :

[align=left][SIZE=4]Dim t, clic
Private Sub Command1_Click()

If clic = 0 Then

clic = 1

Else

clic = 0

End If
End Sub

Private Sub Command2_Click()

Text1 = Val(Text1) + 0.01
End Sub

Private Sub Timer1_Timer()

If clic = 1 Then clique
End Sub
Private Sub clique()

t = t + 0.1

Text1 = Val(Text1) + 0.01

Command2_Click
End Sub
[/SIZE][/align]

أرجو أن يساعدك هذا الكود على حل مشكلتك (لست أدري ما الغاية من الضغط المستمر على الكوموند في برنامجك ولهذا كتبت لك هذا الكود وأنت قم بتكييفه حسب متطلبات برنامجك) مع تحياتي