THE CODE OF LIFE

Dim varDie1Value As Single
Dim varDie2Value As Single
Dim varDie3Value As Single
Dim varNumRolls As Single
Dim varSum As Single
Dim varMax As Single
Dim varMin As Single

Private Sub cmd_roll_Click()
Randomize
varDie1Value = 1 + Int(Rnd() * 6)
varDie2Value = 1 + Int(Rnd() * 6)
varDie3Value = 1 + Int(Rnd() * 6)
varNumRolls = varNumRolls + 1
varSum = varDie1Value + varDie2Value + varDie3Value

If varMin = 0 Then
varMin = varSum
ElseIf varSum < varMin Then
varMin = varSum
End If

If varSum > varMax Then
varMax = varSum
End If

lblMax.Caption = varMax
lblMin.Caption = varMin


lblSum.Caption = varSum
lblNumRolls.Caption = varNumRolls
lblValue3.Caption = varDie3Value
lblValue2.Caption = varDie2Value
lblValue1.Caption = varDie1Value
If varDie2Value = 1 Then
shpDie2Dot1.Visible = False
shpDie2Dot2.Visible = False
shpDie2Dot3.Visible = False
shpDie2Dot4.Visible = False
shpDie2Dot5.Visible = False
shpDie2Dot6.Visible = False
shpDie2Dot7.Visible = True
ElseIf varDie2Value = 2 Then
shpDie2Dot1.Visible = False
shpDie2Dot2.Visible = False
shpDie2Dot3.Visible = True
shpDie2Dot4.Visible = True
shpDie2Dot5.Visible = False
shpDie2Dot6.Visible = False
shpDie2Dot7.Visible = False
ElseIf varDie2Value = 3 Then
shpDie2Dot1.Visible = False
shpDie2Dot2.Visible = False
shpDie2Dot3.Visible = True
shpDie2Dot4.Visible = True
shpDie2Dot5.Visible = False
shpDie2Dot6.Visible = False
shpDie2Dot7.Visible = True
ElseIf varDie2Value = 4 Then
shpDie2Dot1.Visible = True
shpDie2Dot2.Visible = False
shpDie2Dot3.Visible = True
shpDie2Dot4.Visible = True
shpDie2Dot5.Visible = False
shpDie2Dot6.Visible = True
shpDie2Dot7.Visible = False
ElseIf varDie2Value = 5 Then
shpDie2Dot1.Visible = True
shpDie2Dot2.Visible = False
shpDie2Dot3.Visible = True
shpDie2Dot4.Visible = True
shpDie2Dot5.Visible = False
shpDie2Dot6.Visible = True
shpDie2Dot7.Visible = True
Else
shpDie2Dot1.Visible = True
shpDie2Dot2.Visible = True
shpDie2Dot3.Visible = True
shpDie2Dot4.Visible = True
shpDie2Dot5.Visible = True
shpDie2Dot6.Visible = True
shpDie2Dot7.Visible = False
End If

If varDie1Value = 1 Then
shpDie1Dot1.Visible = False
shpDie1Dot2.Visible = False
shpDie1Dot3.Visible = False
shpDie1Dot4.Visible = False
shpDie1Dot5.Visible = False
shpDie1Dot6.Visible = False
shpDie1Dot7.Visible = True
ElseIf varDie1Value = 2 Then
shpDie1Dot1.Visible = False
shpDie1Dot2.Visible = False
shpDie1Dot3.Visible = True
shpDie1Dot4.Visible = True
shpDie1Dot5.Visible = False
shpDie1Dot6.Visible = False
shpDie1Dot7.Visible = False
ElseIf varDie1Value = 3 Then
shpDie1Dot1.Visible = False
shpDie1Dot2.Visible = False
shpDie1Dot3.Visible = True
shpDie1Dot4.Visible = True
shpDie1Dot5.Visible = False
shpDie1Dot6.Visible = False
shpDie1Dot7.Visible = True
ElseIf varDie1Value = 4 Then
shpDie1Dot1.Visible = True
shpDie1Dot2.Visible = False
shpDie1Dot3.Visible = True
shpDie1Dot4.Visible = True
shpDie1Dot5.Visible = False
shpDie1Dot6.Visible = True
shpDie1Dot7.Visible = False
ElseIf varDie1Value = 5 Then
shpDie1Dot1.Visible = True
shpDie1Dot2.Visible = False
shpDie1Dot3.Visible = True
shpDie1Dot4.Visible = True
shpDie1Dot5.Visible = False
shpDie1Dot6.Visible = True
shpDie1Dot7.Visible = True
Else
shpDie1Dot1.Visible = True
shpDie1Dot2.Visible = True
shpDie1Dot3.Visible = True
shpDie1Dot4.Visible = True
shpDie1Dot5.Visible = True
shpDie1Dot6.Visible = True
shpDie1Dot7.Visible = False
End If

If varDie3Value = 1 Then
shpDie3Dot1.Visible = False
shpDie3Dot2.Visible = False
shpDie3Dot3.Visible = False
shpDie3Dot4.Visible = False
shpDie3Dot5.Visible = False
shpDie3Dot6.Visible = False
shpDie3Dot7.Visible = True
ElseIf varDie3Value = 2 Then
shpDie3Dot1.Visible = False
shpDie3Dot2.Visible = False
shpDie3Dot3.Visible = True
shpDie3Dot4.Visible = True
shpDie3Dot5.Visible = False
shpDie3Dot6.Visible = False
shpDie3Dot7.Visible = False
ElseIf varDie3Value = 3 Then
shpDie3Dot1.Visible = False
shpDie3Dot2.Visible = False
shpDie3Dot3.Visible = True
shpDie3Dot4.Visible = True
shpDie3Dot5.Visible = False
shpDie3Dot6.Visible = False
shpDie3Dot7.Visible = True
ElseIf varDie3Value = 4 Then
shpDie3Dot1.Visible = True
shpDie3Dot2.Visible = False
shpDie3Dot3.Visible = True
shpDie3Dot4.Visible = True
shpDie3Dot5.Visible = False
shpDie3Dot6.Visible = True
shpDie3Dot7.Visible = False
ElseIf varDie3Value = 5 Then
shpDie3Dot1.Visible = True
shpDie3Dot2.Visible = False
shpDie3Dot3.Visible = True
shpDie3Dot4.Visible = True
shpDie3Dot5.Visible = False
shpDie3Dot6.Visible = True
shpDie3Dot7.Visible = True
Else
shpDie3Dot1.Visible = True
shpDie3Dot2.Visible = True
shpDie3Dot3.Visible = True
shpDie3Dot4.Visible = True
shpDie3Dot5.Visible = True
shpDie3Dot6.Visible = True
shpDie3Dot7.Visible = False
End If

End Sub

Private Sub cmdQuit_Click()
Unload Me
End Sub

Private Sub Form_Load()
varNumRolls = 0
End Sub