[VB6]>>>>>>Funzione random<<<<<<<<<<<

[i'mshady]

va bene

Dim Stringa As String

Randomize

while Stringa="" or isnumeric(stringa)=false
Stringa = InputBox("Inserisci il numero massimo", "", "10")
wend

MsgBox Int(Rnd * 10) + 1