Private Sub agregar_Click()
Contador = Contador + 1
For Each Control In Form.Controls
If Control.ControlName = "Farmaco_" & Contador Then
Control.Visible = True
End If
Next
End Sub
Private Sub restar_Click()
For Each Control In Form.Controls
If Control.ControlName = "Farmaco_" & Contador Then
Control.Visible = False
End If
Next
Contador = Contador - 1
End Sub