SoloCodigo

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?