OpenRandom
Dim Xpos, Ypos As Integer Dim Mess As Integer Randomize Mess = Int(Rnd * 5) If Mess = 5 Then Mess = 0 Xpos = (Screen.Width - Form1.Width - 1) * Rnd + 1 Ypos = (Screen.Height - Form1.Height - 1) * Rnd + 1 Form1.Move Xpos, Ypos
Dim Xpos, Ypos As Integer
Dim Mess As Integer
Randomize
Mess = Int(Rnd * 5)
If Mess = 5 Then Mess = 0
Xpos = (Screen.Width - Form1.Width - 1) * Rnd + 1
Ypos = (Screen.Height - Form1.Height - 1) * Rnd + 1
Form1.Move Xpos, Ypos
( openrandom.html )- by Paolo Puglisi
- Modifica del 17/12/2023