Dim xPosition As Long = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\MyWebTools\TestProject", "X Position", Nothing)
Dim yPosition As Long = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\MyWebTools\TestProject", "Y Position", Nothing)
Me.Location = New Point(xPosition, yPosition)