per aggiungere il controllo puoi aggiungere la riga: crea.Name = "PIPPO"
il codice completo sarebbe:
Dim crea As New TextBox
crea.Location = New System.Drawing.Point(30, 50)
Me.Controls.Add(crea)
crea.Name = "PIPPO"
'poi nella tua procedura di stampa farai riferimento alla text aggiunta con un codice tipo:
dim stringa_da_stampare as string
stringa_da_stampare = miaform.Controls.Item("PIPPO").Text
Spero di essere stato utile, ciao :-)