Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Me.Top = "0"
        movein()
 
    End Sub
 
    Private Sub movein()
 
        Do
            Me.Top = Me.Top + 2
            System.Threading.Thread.Sleep(100)
 
        Loop Until Me.Top = 500
 
    End Sub