Sub centerform (x 

as

Form) screen.MousePointer = 11 x.Move screen.Height \ 2 - x.Height \ 2, screen.Width \ 2 - x.Width \ 2 Load x x.show screen.MousePointer = 0 End Sub
Return