Problem with Rnd

[DarioXP]

Ok... I want to make an app that shows a random message at startup, so I created a Sub called Greet that has the following code:

Select Case Int((6 * Rnd) + 1)
    Case 1
    ...
    Case 2
    ...
    Case 3
    ...
    Case 4
    ...
    Case 5
    ...
    End Select

And when I run the application, a strange thing happen, when I call the Procedure from Form_Load the message displayed is always the same BUT when I run it from a command button Click event the procedure works, I have a random message each time I press the button but not when I load the form.

If anyone knows why and eventually how to solve it please tell me, 'cuz I'm getting mad with this

Thanks in advance,
DarioXP