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 25/3/2019