This program creates a die which can be used to play board games. It can be incorporated into any VB game that require a dice. VB games that you can create in Visual Basic are snake and ladder chess, monopoly and other board games. First of all, you draw a rounded square in the project windows. Secondly, you need to draw an array of 7 dots and VB will automatically labeled them as shape1(0), shape1(1),shape1(2),  shape1(3), shape1(4), shape1(5) and shape1(6). You can control the appearance and disappearance of the dots using the random function RND. The number that is enclosed in the bracket of a control array is the index which served as an identity for that control. For example, shape1(1) means the index of the control is 1. By using the indices we can therefore control the behaviour of the control. The interface

The Codes Private Sub Command1_Click() Randomize Timer n = Int(1 + Rnd * 6) For i = 0 To 6 Shape1(i).Visible = False Next If n = 1 Then Shape1(3).Visible = True End If 　 If n = 2 Then Shape1(2).Visible = True Shape1(4).Visible = True End If If n = 3 Then Shape1(2).Visible = True Shape1(3).Visible = True Shape1(4).Visible = True End If

If n = 4 Then Shape1(0).Visible = True Shape1(2).Visible = True Shape1(4).Visible = True Shape1(6).Visible = True End If If n = 5 Then Shape1(0).Visible = True Shape1(2).Visible = True Shape1(3).Visible = True Shape1(4).Visible = True Shape1(6).Visible = True End If If n = 6 Then Shape1(0).Visible = True Shape1(1).Visible = True Shape1(2).Visible = True Shape1(4).Visible = True Shape1(5).Visible = True Shape1(6).Visible = True End If End Sub