Regras do forum:

• Upload
Devido a ultrapassagem da marca de 1,5Gb de armazenamento de arquivos na hospedagem do Planilhando, limitaremos o tamanho de cada arquivo para 2Mb sendo obrigatório o uso dos formatos .zip - .rar - .ice visto a gratuidade e não geração de recursos para bancar o site.

Assim sendo, todos os anexos deste tópico foram removidos.

Por favor leia as regras (link na minha assinatura), e passe a compactar todos os seus anexos.

Obrigado,

Fernando

Desculpa,

Segue anexo adequado.

Boat arde!!

Tente algo assim..

Private Sub btnVerde_Click()
Dim trsf As Integer
    For trsf = 1 To 3
        Me.Controls("Textbox" & trsf).BackColor = vbGreen 'Pinta os TexBox's de 1 a 3 da cor Verde
    Next trsf
End Sub

Att