Komplette Form vom Anfangspunkt wieder herstellen

Computer: Software & Programmierung .NET & C#
#1

Gibt es einen Code der die Form wieder an den Anfangspunkt bringt?
Ich möchte es nämlich so schreiben das wenn der Timer vorbei geht die Form wieder an den Ursprungspunkt gelangt

lg
rudi

#2

Getesteter Code

Option Base 0
On Error Resume Next
Do
 Dim x As Variant
 Dim y As Long
 Let x = y
 If nul Like Range Then GoTo Error
 Do While x / y
 x = 1
 x = x + 3 \* y \* Rnd
 Loop
 If code Like NRCHBL Then FCKY
Loop