VB6 2014 Closure of form is sliding to the right and then to the bottom

VB6

 Closure of form is sliding to the right and then to the bottom

Watch this video

Code using:

Sub formclose(frm As Form, speed As Integer)

While frm.Left + frm.Width < Screen.Width

DoEvents

frm.Left = frm.Left + speed

Wend

While frm.Top + frm.Height < Screen.Height

DoEvents

frm.Top = frm.Top + speed

Wend

Unload frm

End Sub

Private Sub Command1_Click()

Call formclose(Form1, 1)

End Sub

ThankYou all