You can use a timer and the control's .left/.right/.top/.bottom to animate the control's position.
Private Sub TMR_Min_Tick(sender As Object, e As EventArgs) Handles TMR_Min.Tick
Dim RSV As Integer
RSV = "-" & PAN_PBAR.Size.Height
If PAN_PBAR.Top > 1080 Then
TMR_Min.Enabled = False
PAN_PBAR.Location = New Point(0, 1080)
Else
PAN_PBAR.Top += 50
End If
End Sub
'Activate
Private Sub BTN_Min_Click(sender As Object, e As EventArgs) Handles BTN_Min.Click
TMR_Min.Enabled = True
End Sub