No encuentro el fayo ya que la variable ctlboton esta declarada como control.
Private Sub cc_Click()
Dim ctlboton As Control
Dim intDataX As Integer, intDataY As Integer
intDataX = 1000
intDataY = 100
Set ctlboton = CreateControl(Form_CUETACUR, acToggleButton, , "", "", intDataX, intDataX)
End sub
Os agradeceria vuestra ayuda.
Un saludo alberto.






Mode Lineal
