Public Function AñadirCirculo(X As Long, Y As Long, R As Long, C As Integer)PB.Circle (X, Y), R, QBColor(C)End Function
Private Sub Cmd_Click()End SubPrivate Sub CmdPintar_Click()MiControl1.AñadirCirculo TextX, TextY, TextRadio, TextColorEnd Sub