Hem / Tips & tricks
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)DoForm1.Top = Form1.Top - 1Loop Until Form1.Top = -Val(Form1.Height)End Sub