[Mtaktak]

يبدو اني وجد الحل

كود :

Dim win As Integer
       Dim i As Integer
       Do While i <= 15
           i = i + 1
           If Val(Btns(i - 1).Text) = i Then
               win += 1
           End If
       Loop
       If win = 15 Then
           MsgBox("لقد فزت  " & "عدد المحاولات   " & count, MsgBoxStyle.Information, "تهانينا")
           win = 0
           i = 0
       End If
       count += 1

شكرا لتفاعلكم  ومروركم