Help write a VB dice game

Define 1 label, two texts and two buttons. I wrote a useless program, but it can meet the requirements of the game.

Define a business object as a Boolean value

Private subcommand 1_Click ()

Label 1 = " "

Irregular

Text 1 = Val(Int(Rnd * 6))

Text2 = Val(Int(Rnd * 6))

A = Val (text 1)+Val (text 2)

label 1 = IIf(a & gt； 6. "More points" and "Less points")

If Label 1 = "There are many points", then

Bo = true

other

Bo = false

If ... it will be over.

Command 1. Enabled = False

Command 2. Enabled = true

End joint

Private subcommand 2_Click ()

Label 1 = " "

Irregular

Text 1 = Val(Int(Rnd * 6))

Text2 = Val(Int(Rnd * 6))

B = Val (text 1)+Val (text 2)

If (b>6 and bo = true) or (b<6 and bo = false), then

Label 1 = "You win!"

other

Label 1 = "You lost!"

If ... it will be over.

Command 1. Enabled = true

Command 2. Enabled = False

End joint

Private Sub-Form _Load ()

Label 1 = " "

Command 1. Enabled = true

Command 2. Enabled = False

End joint