Coloca un autonumerico en cada Tag de tus botones
Luego usa esta rutina
Cita: Private Sub Mostrar(ByVal control As Control, ByVal numero As Integer)
If control.GetType.Name = "Button" Then
If CType(control.Tag, Integer) <= numero Then
control.Visible = True
End If
End If
If control.Controls.Count > 0 Then
Dim tControl2 As Control
For Each tControl2 In control.Controls
Mostrar(tControl2, numero)
Next
End If
End Sub
La parte final del algoritmo es un poco de recursividad, suponiendo que tienes botones dentro de algún contenedor..
Ojala sirva