Dionisis
Enrico's code work on Vista
Note : i use microsoft Outlook and it prompts the inbox
HTH
Richard
FUNCTION Unique(nTotale)
RETURN( HB_RANDOMINT(1,nTotale))
FUNCTION Unique()
LOCAL cNumeric:= STR (HB_RANDOMINT(1,10000) ,5)
// You may use any number instand of 10000
cNumeric := STRTRAN (cNumeric ," ","0")
RETURN( cNumeric)