• Home
 · 
• Games
 · 
• This will give you a lot of different dice options (Mainly if you play dungeons and dragons, the di

This will give you a lot of different dice options (Mainly if you play dungeons and dragons, the di

This will give you a lot of different dice options (Mainly if you play dungeons and dragons, the dice!).

Rate This will give you a lot of different dice options (Mainly if you play dungeons and dragons, the di

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub Command1_Click()
d = Int(Rnd * 20) + 1
MsgBox d
If d = 20 Then
MsgBox "You Win!!"
End If
If d = 1 Then
MsgBox "You lose!!!'"
End If
End Sub

Private Sub Command2_Click()
d = Int(Rnd * 6) + 1
MsgBox d
End Sub

Private Sub Command3_Click()
d = Int(Rnd * 12) + 1
MsgBox d
End Sub

Private Sub Command4_Click()
d = Int(Rnd * 4) + 1
MsgBox d
End Sub

Private Sub Command5_Click()
d = Int(Rnd * 8) + 1
MsgBox d
End Sub

Private Sub Command6_Click()
d = Int(Rnd * 10) + 1
MsgBox d
End Sub

Private Sub Command7_Click()
Randomize Timer
d = Int((Rnd * 10) * 10) + Int(Rnd * 10)
MsgBox d
End Sub

Private Sub Command8_Click()
Randomize Timer
d = Int(Rnd * 10)
d = d * 10 + 10
MsgBox d
End Sub