Llenar vaciar deposito

Este programa esta orientado a llenar/vaciar un deposito como utilidad se podría usar en alguna gasolinera u otro tipo de trabajo similar.

Consta de:

- 2 Options Button

- 1 Command Button

- 1 Picture

- 1 Cuadros de texto que aumentara según queramos simular un llenado/vacío

Funciona de la siguiente manera:

- Botón Llenar

Al presionar el boton "Start" se empezara a llenar, es decir, que el cuadro de texto en amarillo empezara a elevarse:

- Botón Vaciar

Al presionar el botón "Start" se empezara a Vaciar, es decir, que el cuadro de texto en amarillo empezara a disminuir:

- Codigo:

Private Sub Timer1_Timer()
If Option1.Value = True Then
incremento = 20
Else
incremento = -20
End If

If Text1.Top - incremento <= Picture1.Top + Picture1.Height * 0.91 Then
If Text1.Height + incremento <= Picture1.Height Then
Text1.Height = Text1.Height + incremento
Text1.Top = Text1.Top - incremento
Else
Text1.Height = Picture1.Height
End If
End If
End Sub