Q: Showing a complete form at random on screen
Hi,

Actually two questions concerning a screen-saver:
-I can move a picture across the screen but how can I get it to do that 
on random locations? I want the picture to jump to different locations 
every 15 seconds.
Code is now:
main.Move (main.Left + 100) Mod ScaleWidth, (main.Top + 50) Mod ScaleHeight
So the picture just scrolls diagonally down the screen....

-The picture runs of the screen. Probably as the picture location is 
calculated by TOP and LEFT so everything to the bottom and right runs 
of screen.
How can I make sure the picture is allways fully visible?

Dennis
W.D.tHart@openmail.issn53.namsnb.simis.com
A
 it isn't a question about screensavers but about sizes. But the 
answers would be like the following (I haven't checked it but it 
seems logic).

Making the form popup on random locations:

> main.Move (main.Left + 100) Mod ScaleWidth, (main.Top + 50) Mod
> ScaleHeight

You must change the hardcoded location 'main.Left + 100' and 
'main.Top + 50' into softmade locations.
Assuming Main is the name of the form to popup it would be like:

 Randomize
 main.Move Screen.Width * Rnd, Screen.Height * Rnd

Showing the whole form will take some controlling before showing the 
form: The main.Left + main.Width may not be greater then the 
Screen.Width * Rnd. And the main.Top + main.Height may not be greater 
then the Screen.Height * Rnd

 Dim X, Y
 Randomize
 X = CLng((Screen.Width - Me.Width) * Rnd)
 Y = CLng((Screen.Height - Me.Height) * Rnd)
 Me.Move X, Y

or on one line: Me.Move CLng((Screen.Width - Me.Width) * Rnd), 
CLng((Screen.Height -Me.Height) * Rnd)

Return