you can code it your self
open up vb6
draw a button, double click on it to goto code view
and put this code in
Randomize
MsgBox (Fix(Rnd * 39)+1)
+1 is used to remove outputing 0 :P
remove the (Fix(Rnd*39)+1) and put rnd*40 if you want real output too(this will only give integer...