Visual Basic - mover un picturebox hacia arriba

Private Sub Timer1_Timer()

 Picture1.Top = Picture1.Top - 15

 If Picture1.Top < 0- Picture1.Height Then Timer1.Enabled = False

End Sub

Dim Pasos As Integer 'Guardara el decremento del del picture

Private Function fPasos(vPasos As Integer)

 Pasos = Int(Picture1.Height / vPasos) 'Conocera los decrementos necesarios para ocultar el picture

End Function

Private Function Oculta(Optional vOculta As Boolean = False)

 Picture1.Top = Picture1.Top - Pasos 'Va ocultando el picture

 If vOculta Then Picture1.Top = 0 - Picture1.Height 'Oculta el picture por completo

End Function

Private Function Pagar()

 fPasos 7 'Se establece el numero de pasos para ocultarlo completamente

 MsgBox "Proceso 1": Oculta

 MsgBox "Proceso 2": Oculta

 MsgBox "Proceso 3": Oculta

 MsgBox "Proceso 4": Oculta

 MsgBox "Proceso 5": Oculta

 MsgBox "Proceso 6": Oculta

 MsgBox "Proceso 7": Oculta True

End Function

Private Sub Command1_Click()

 Pagar

End Sub