Ficha 11-1

Private Sub cmd1_Click()

Dim aleatorio1 As Integer, cont As Integer

cont = 0

MsgBox "Irão ser gerados 6 números aleatórios!", vbOKOnly + vbInformation, "Números"

Randomize
Picture1.Print "Números ->";
Do
aleatorio1 = Int(Rnd() * 49) + 1
cont = cont + 1
Picture1.Print aleatorio1;
Loop Until cont = 6

End Sub

Private Sub cmd2_Click()

If MsgBox("Tem a certeza que quer sair?", vbOKCancel, "Sair") = vbOK Then End

End Sub