Qualcuno Sa Rispondere???

[zampa28]

Private Sub Command1_Click()

Randomize

Text1.Text = Chr(Int(Rnd * 255) + 1)

End Sub

Così usi tutti i 255 caratteri Ascii disponibili