ciao a tutti
ho ancora bisogno del vostro aiuto
in 1 form ho inserito 1 immagine di sfondo, 1 textbox ed 1 richtextbox
poi ho usato queste righe di codice per rendere trasparente i 2 controlli:

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_EXSTYLE = (-20)
Const WS_EX_TRANSPARENT = &H20&

Private Sub Form_Load()
Dim result As Long
result = SetWindowLong(Text1.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)
result = SetWindowLong(RichTextBox1.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT) '//set Richtext Box Backgroundstyle to transparent
End Sub

ilprob. è che il richtextbox diventa trasparente qualunque sia il colore di sfondo del form, mentre il text box solo con il colore white.
cosa manca nel codice per avere anche il text box trasparente con qualunque colore e con l'immagine di sfondo?

inoltre ho una serie di textbox, cioè un array, con i nomi:
textbox1_pinco
textbox1_pallino
....
textbox1_caio
come posso usare il ciclo for next oppure for each, per rendere trasparenti tutti i richtextbox oppure i text box?
io ho provato questo ciclo, per cancellare il testo:

Private Sub Form_Load()
Dim Control As Control
For Each Control In Form1.Controls

If TypeOf Control Is RichTextBox Then
Control.Text = "" 'cancella testo
End If
Next Control
End Sub
e cosi funziona ;
ma se provo a modificarlo per lo scopo precedente nn funziona;
cosa devo modificare?
ciao e grazie