Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Do Until Me.Location.Y = 500
            Me.Location = New Point(Me.Location.X, Me.Location.Y + 1)
            wait()
        Loop
    End Sub
    Public Function wait(Optional ByVal mSeconds As Decimal = 0.001)
        Dim endTime As Date = Date.Now.AddSeconds(mSeconds)
        Do : Loop Until Date.Now > endTime
        Return 0
    End Function