All pastes #746704 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-10-23 12:47 UTC
rendered paste body
Dim varDie1Value As Single
Private Sub cmdRoll_Click()
Randomize
varDie1Value = 1 + Int(Rnd * 6)
If varDieValue = 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
ElseIf varDie1Value = 6 Then
shpDie1Dot1.Visible = True
shpDie1Dot2.Visible = True
shpDie1Dot3.Visible = True
shpDie1Dot4.Visible = True
shpDie1Dot5.Visible = True
shpDie1Dot6.Visible = True
shpDie1Dot7.Visible = False
End If
End Sub