پرسش شمارش تعداد موارد انتخاب شده از لیست باكس

[ظهور 313]

سلام و عرض ادب خدمت اساتید و رفقا
حالت یك لیست باكس رو روی حالت مولتی سلكت قرار دادم تا بتونم انتخاب چندتایی داشته باشم و موارد متعدد رو با هم ثبت كنم. تا اینجا مشكلی نیست.
اما برای ثبت نیاز دارم تا تعداد موارد انتخاب رو شده رو مورد شمارش قرار بدم، (میخوام بررسی كنم كه اگر تعداد موارد انتخاب شده از یك مقدار خاص (متغیر) بیشتر بود، ثبت انجام نشه و كاربر مجبور باشه تعداد رو كم كنه)
كسی از اساتید میتونه راهنمایی كنه؟

[ظهور 313]

كممممممممممممممككككككككككككككككك

[iranweld]

كممممممممممممممككككككككككككككككك

Private Sub CommandButton1_Click()
Dim k
k = 0
 For i = 0 To ListBox1.ListCount - 1      
 If ListBox1.Selected(i) Then _       
  k = k + 1      
  End If
        Next i

MsgBox k & " : " & "item selected..."
End Sub