clase Bola privados los objetos x, y son cantidades el objeto L es un Pen (Color.Blue, 2) publicos Mensajes Bola { copie 17 en x, y } Bola(deme xe, deme ye) { copie xe en x copie ye en y } Actue(deme g es un Graphics) { es x < 300 ? /*labolita.ClientRectangle.width? pues el miembro no es Static */ si: copie x + 1 en x no: copie -100 en x g.DrawEllipse(L, x, y, 100, 50) } /***************************************************/ clase labolita derivada_de system.windows.forms.form publicos: el objeto bandera es una cantidad el objeto chicharron es un Timer el objeto b es un Button el objeto p es un Point(0,80) el objeto t es un size(100,100) el objeto bol2 es una Bola el objeto bol3 es una Bola(200, 200) el objeto bol4 es una Bola(0, 230) el objeto bol5 es una Bola(150, 270) mensajes: labolita { copie color.yellow en b.backcolor labolita.Manejador(labolita.Paint, botero) copie "YA son 4 objetos bola" en labolita.text copie 0 en bandera copie "ARRANQUE" en b.text labolita.Manejador(chicharron.Tick, temporizador) labolita.AgregarControl(b) copie p en b.location copie t en b.size labolita.Manejador(b.Click, clic_boton) } botero(deme mazamorra, deme frijoles es un PaintEventArgs) { bol2.Actue(doy frijoles.Graphics) bol3.Actue(doy frijoles.Graphics) bol4.Actue(doy frijoles.Graphics) bol5.Actue(doy frijoles.Graphics) } clic_boton(deme a, deme bb es un EventArgs) { es bandera = 0? si: { copie "APAGUE" en b.text chicharron.Start copie 1 en bandera } no: { copie "ARRANQUE" en b.text chicharron.Stop copie 0 en bandera } } temporizador(deme remedio, deme saludo es un EventArgs) { labolita.Refresh }