Option Explicit
 
Dim iBallsToMake As Integer
 
Private Sub Form_Load()
    ' Initialize random procedure:
    Randomize
End Sub
 
Private Function Get_RANDOM(lowerbound As Integer, upperbound As Integer) As Integer
    ' The RND formula!
    ' Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
    Get_RANDOM = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
End Function
 
Private Sub lblURL_Click(Index As Integer)
    Dim sURL As String
    sURL = Trim(lblURL(Index).Caption)
    Shell "explorer " & sURL, vbMaximizedFocus
End Sub
 
Private Sub cmdMake_Click()
 
    ' Disable button and properties:
    cmdMake.Enabled = False
    txtBallCount.Enabled = False
    txtMinBall.Enabled = False
    txtMaxBall.Enabled = False
 
    Dim i As Integer
 
    ' Hide all balls and set labels to "77":
    For i = imgBall.LBound To imgBall.UBound
        imgBall(i).Visible = False
        lblNum(i).Visible = False
        lblNum(i).Caption = "77"
    Next i
 
    ' Get the number of balls to make:
    iBallsToMake = Val(txtBallCount.Text)
 
    ' Check if number is between 1 and 7:
    If iBallsToMake > 7 Then
        iBallsToMake = 7
        txtBallCount.Text = "7"
    ElseIf iBallsToMake <= 0 Then
        iBallsToMake = 1
        txtBallCount.Text = "1"
    End If
 
    ' Start the process:
    Timer1.Enabled = True
 
End Sub
 
Private Sub Timer1_Timer()
 
    ' Are there balls to make?
    If iBallsToMake <= 0 Then
        ' Stop timer:
        Timer1.Enabled = False
        ' Enable properties:
        cmdMake.Enabled = True
        txtBallCount.Enabled = True
        txtMinBall.Enabled = True
        txtMaxBall.Enabled = True
        Exit Sub ' Done!
    End If
 
 
    ' Make ball visible:
    imgBall(7 - iBallsToMake).Visible = True
    lblNum(7 - iBallsToMake).Visible = True
 
    Dim iNewNum As Integer
    Dim i As Integer
    Dim iTryAgainCounter As Integer
 
    iTryAgainCounter = 0
 
try_again:
 
    ' Avoid hand up with max ball 2 and 7 balls :)
    If iTryAgainCounter > 100 Then
         ' Set the ball value:
         lblNum(7 - iBallsToMake).Caption = "?"
         GoTo one_less
    End If
 
    ' Get the random value:
    iNewNum = Get_RANDOM(Val(txtMinBall.Text), Val(txtMaxBall.Text))
 
    ' Avoid falling the same number again:
    For i = imgBall.LBound To imgBall.UBound
        If Val(lblNum(i).Caption) = iNewNum Then
            iTryAgainCounter = iTryAgainCounter + 1
            GoTo try_again
        End If
    Next i
 
    ' Set the ball value:
    lblNum(7 - iBallsToMake).Caption = iNewNum
 
one_less:
    ' Ok, one ball is there!
    iBallsToMake = iBallsToMake - 1
 
End Sub
 
 

 
    ' Make ball visible:
    imgBall(7 - iBallsToMake).Visible = True
    lblNum(7 - iBallsToMake).Visible = True
 

    If iTryAgainCounter > 100 Then
         ' Set the ball value:
         lblNum(7 - iBallsToMake).Caption = "?"
         GoTo one_less
    End If