مشكل بهترين امتياز رفع شد
Private Sub Timer1_Timer()
For I = 0 To H.ListCount
If Val(H.List(I)) > lbl(0).Caption Then
lbl(0).Caption = H.List(I)
End If
If Val(H.List(I)) < lbl(0).Caption And Val(H.List(I)) > lbl(1).Caption Then
lbl(1).Caption = H.List(I)
End If
If Val(H.List(I)) < lbl(1).Caption And Val(H.List(I)) > lbl(2).Caption Then
lbl(2).Caption = H.List(I)
End If
If Val(H.List(I)) < lbl(2).Caption And Val(H.List(I)) > lbl(3).Caption Then
lbl(3).Caption = H.List(I)
End If
If Val(H.List(I)) < lbl(3).Caption And Val(H.List(I)) > lbl(4).Caption Then
lbl(4).Caption = H.List(I)
End If
Next I
End Sub