Procedimientos

PRACTICA VISUAL BASIC
Primero cambiamos el título del formulario a “Subir – Bajar”
Cambiamos (Nombre) frmSubirBajar
Max Button = False
Startuposition = Center Screen
Moveable = False

Agragamos Label Caption CETis 109
Nombre = lblMensaje
Alignment = Center
Font = Seleccionando tamaño 18
Back Color = Azul
Fore Color = Negro
Top = 0

Agregamos Command 1
Caption = Bajar
Nombre = cmdBajar

Agregar Command 2
Caption = Subir
Nombre = cmdSubir

CODIFICACIÓN
Private Sub cmdBajar_Click()
lblMensaje.Top = 2000

End Sub

Private Sub cmdSubir_Click()
lblMensaje.Top = 0

End Sub