FdfrthJry

Dim varDie1Value As Single
Dim varDie2Value As Single
Private Sub cmd_roll_Click()
Randomize
varDie1Value = 1 + Int(Rnd() * 6)
varDie2Value = 1 + Int(Rnd() * 6)
 
 
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 varDie1Value = 2 Then
shpDie2Dot1.Visible = False
shpDie2Dot2.Visible = False
shpDie2Dot3.Visible = True
shpDie2Dot4.Visible = True
shpDie2Dot5.Visible = False
shpDie2Dot6.Visible = False
shpDie2Dot7.Visible = False
ElseIf varDie1Value = 3 Then
shpDie2Dot1.Visible = False
shpDie2Dot2.Visible = False
shpDie2Dot3.Visible = True
shpDie2Dot4.Visible = True
shpDie2Dot5.Visible = False
shpDie2Dot6.Visible = False
shpDie2Dot7.Visible = True
ElseIf varDie1Value = 4 Then
shpDie2Dot1.Visible = True
shpDie2Dot2.Visible = False
shpDie2Dot3.Visible = True
shpDie2Dot4.Visible = True
shpDie2Dot5.Visible = False
shpDie2Dot6.Visible = True
shpDie2Dot7.Visible = False
ElseIf varDie1Value = 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
End Sub

Private Sub cmdQuit_Click()
Unload Me
End Sub