FAIRE FAIRE QQUECHOSE AU HASARD AU PROG.

private sub command1_click()
dim hasard as integer
hasard = str$(cint(rnd * 50))
'en fait ca fait que text1.text = un nombre au hasard entre 0 et 50.
if hasard > 0 and hasard < 25 then msgbox "hasard est compris entre 0 et 50 !!!",vbokonly+vbinformation
elseif hasard > 25 hasard < 50 then
msgbox "hasard est compris entre 25 et 50",vbokonly+vbinformation
end if
end sub