change to Code: If cnt Mod 5 = 0 Then Label2.Caption = PrdAr(Int(cnt / 5) - 1) End If not tested, hope it's corect
If cnt Mod 5 = 0 Then Label2.Caption = PrdAr(Int(cnt / 5) - 1) End If
Seenu If this post is useful, pls don't forget to Rate this post. Pls mark thread as resolved once ur problem solved. ADO Tutorial Variable types SP6 for VB6, MsFlexGrid fast fill, Sorting Algorithms
Forum Rules
Reply With Quote