السلام عليكم ,,,,,
احتاج عند بداية عداد الوقت يفتح النموذج A
وعند انتهاء العداد يغلق نموذج العداد اي النموذج الحالي
Private Sub Form_Open(Cancel As Integer)
i = 101
Me.pr = "loading ..."
End Sub
Private Sub Form_Timer()
i = i - 1
Me("sq" & i).Visible = True
If i = 1 Then
Me.TimerInterval = 0
End If
Static intCount As Integer
intCount = intCount - 1
If intCount Then
Me.pr = "loading " & Abs(intCount) & "%"
End If
End Sub