Hola amigos soy nueva aqui, me mandaron hacer un juego en VB 6 de la batalla naval lo hice y me quedo muy bueno la cuestion es que me quedaron cadenas muy largas de codigos mi pregunta es por ejemplo mi trabajo esta compuesto de 3 form uno para un juego de 3 x 3 (hecho con labels) otro de 4x4 y otro de 6x6 con el boton nuevo el codigo seria el siguiente:
Private Sub Command1_Click()
Label1.BackColor = &H8000000F
Label6.BackColor = &H8000000F
Label6.Caption = ""
Label7.BackColor = &H8000000F
Label8.BackColor = &H8000000F
Label9.BackColor = &H8000000F
Label10.BackColor = &H8000000F
Label11.BackColor = &H8000000F
Label12.BackColor = &H8000000F
Label12.Caption = ""
Label13.BackColor = &H8000000F
Label14.BackColor = &H8000000F
Label14.Caption = ""
Label15.BackColor = &H8000000F
Label16.BackColor = &H8000000F
Label17.BackColor = &H8000000F
Label18.BackColor = &H8000000F
Label19.BackColor = &H8000000F
Label19.Caption = ""
Label20.BackColor = &H8000000F
Label21.BackColor = &H8000000F
Label22.BackColor = &H8000000F
Label23.BackColor = &H8000000F
Label24.BackColor = &H8000000F
Label25.BackColor = &H8000000F
Label26.BackColor = &H8000000F
Label27.BackColor = &H8000000F
Label27.Caption = ""
Label28.BackColor = &H8000000F
Label29.BackColor = &H8000000F
Label30.BackColor = &H8000000F
Label31.BackColor = &H8000000F
Label32.BackColor = &H8000000F
Label32.Caption = ""
Label33.BackColor = &H8000000F
Label34.BackColor = &H8000000F
Label35.BackColor = &H8000000F
Label36.BackColor = &H8000000F
Label36.Caption = ""
Label37.BackColor = &H8000000F
Label38.BackColor = &H8000000F
Label39.BackColor = &H8000000F
Label40.BackColor = &H8000000F
Label40.Caption = ""
Text1.Text = 0
Text2.Text = 0
Hay alguna manera de hacer este mismo codigo pero mas corto? mas simplificado?
