Cara keluar menggeser dari form

Cara keluar menggeser dari form



Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left + 40
Me.Move Me.Left, Me.Top