Private Sub btnMove_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnMove.Click
        btnMove.Enabled = False
        If Me.Location.Y > 500 Then
            Do
                Me.Location = New Point(Me.Location.X, Me.Location.Y - 1)
                Threading.Thread.Sleep(10)
                Application.DoEvents()
            Loop Until Me.Location.Y = 500
        End If
        btnMove.Enabled = True
    End Sub