ظاهر شدن پیام با رسیدن اسکرول به انتها

[bahman2012 13]

سلام

ااز کد زیر برای نمایش رسیدن اسکرول به انتهای لیست استفاده کردم اما وقتی به انتها میرسه 50 بار پیام میده چیکارش کنم فقط یه بار پیام بده؟

Sub sv_feh1_ScrollChanged(Position As Int)

       If Position + sv_feh1.Height = sv_feh1.Panel.Height Then
           Msgbox("پایان لیست","End")
       End If



End sub

[مهدی ایزدی 9,203]

درود

عبارت Return false را در خط بعد از MsgBox اضافه کنید فکر کنم مشکل حل بشه