Dim Value As Integer
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button5.Click
        Value += 10 : SetMeTop(Value)
    End Sub
 
    Private Sub SetMeTop(ByVal value)
        Me.Top = value
    End Sub

Danke, an ALLE !!