Sub ChangeFace(FaceNumber As B4XFont)
Select FaceNumber
Case 1
DiceView1.Rotate(0,10,0)
Case 2
DiceView1.Rotate(0,280,0)
Case 3
DiceView1.Rotate(90,10,0)
Case 4
DiceView1.Rotate(270,10,0)
Case 5
DiceView1.Rotate(0,100,0)
Case 6
DiceView1.Rotate(0,190,0)
End Select
End Sub