Программа с кубиком

Option Explicit
Const r = 90, rr = 900, nn = 10 'Значение величинны массива и количества кубиков
Dim WithEvents pb As PictureBox, im As Image
Dim WithEvents cb As CommandButton
Dim i&, v, a$(), s$, ll&(1 To nn), nexti&
  
Private Sub cb_Click()
    Dim j&
    Select Case Mid$(cb.Name, 3)
    Case 1: Call reset
    Case 2
        nexti = nexti + 1
        SetNum nexti, Fix(Rnd * 6) + 1
        If nexti >= nn Then
            v = 0: s = ""
            For i = 1 To UBound(ll)
                v = v + ll(i)
                s = s & ll(i) & IIf(i < UBound(ll), " + ", " = ")
                If ll(i) = 6 Then j = j + 1
            Next
            If MsgBox("Выбранно " & nn & " кубиков в сумме: " & vbLf & s & v & vbLf & _
            "Из них с 6 точками выпало: " & j & vbLf & _
            "Продолжить или выйти из программы ?", 68) = vbNo Then End
            reset
        End If
    End Select
End Sub
 
 
Private Sub reset()
    Erase ll
    nexti = 0
    For i = 1 To nn: Controls("im" & i).Visible = 0: Next
    Randomize Timer
End Sub
 
 
Sub SetNum(ByVal Index&, ByVal Num&)
    Randomize Timer
    If Index < 1 Or Index > nn Then Exit Sub
    If Num < 0 Or Num > 6 Then Exit Sub
 
    With Controls("im" & Index)
        .Visible = Num > 0
        .Move -(6 - Num) * rr
        ll(Index) = Num
    End With
 
End Sub
 
Private Sub Form_Activate()
    pb.SetFocus
End Sub
 
Private Sub Form_Load()
    Dim l&, t&, w&, h&
    
    l = r: t = r: w = rr: h = rr
    For i = 1 To nn
        Set pb = Controls.Add("vb.PictureBox", "pb" & i): With pb
            .Move l, t, w, h: l = l + w
            .Visible = 1
            .BorderStyle = 0
            Set im = Controls.Add("vb.Image", "im" & i, pb): With im
                Set .Picture = Me.Picture
            End With
        End With
    Next
    Set Me.Picture = Nothing
    l = r: t = t + rr + r: i = 0
    For Each v In Array("Сброс", "Добавить еще"): i = i + 1
        Set cb = Controls.Add("vb.CommandButton", "cb" & i): With cb
            .Move l, t, rr * 2, rr \ 2: l = l + .Width + r
            .Caption = v
            .Visible = 1
        End With
    Next
    reset
    Me.Caption = "Кости-10"
End Sub
 
 
Private Sub cb_LostFocus()
    pb_LostFocus
End Sub
 
Private Sub pb_LostFocus()
    If TypeOf ActiveControl Is PictureBox Then Set pb = ActiveControl
    If TypeOf ActiveControl Is CommandButton Then Set cb = ActiveControl
End Sub