vb net - nuova istanza di linea

[Luberto Mario]

innanzitutto un saluto a tutti gli amici
vi espongo un problema del quale non riesco a venirne a capo
in un form ho disegnate fino a 7 linee che variano di posizione
e lunghezza in base a dei parametri esterni
vorrei fare un ciclo del tipo


For _i As Integer = 1 To 7
Dim _Linea As Microsoft.VisualBasic.PowerPacks.LineShape
_Linea = pbl_Panel.Controls("frmLinea" & _i)
With _Linea
. .BorderWidth = ...
. .BorderColor = ...
. .X1 = ...
. .X2 = ...
. .Y1 = ...
. .Y2 = ...
End With

purtroppo nella assegnazione della linea mi da' il seguente errore
impossibile convertire il valore di tipo "System.Windows.Forms.Control" in
"Microsoft.VisualBasic.PowerPacks.LineShape"

qualcuno mi sa' dire come risolvere
grazie anticipato

[SirJo]

Prova con:

_Linea = DirectCast(pbl_Panel.Controls("frmLinea" & _i), Microsoft.VisualBasic.PowerPacks.LineShape)

[Luberto Mario]

ti ringrazio SirJo, ma purtroppo non va
nessun' altra idea?

[SirJo]

Boh, non so dirti, sinceramente io mi tengo lontano dal PowerPacks perchè non tutti i miei clienti ce l'hanno installato e quindi mi diventa difficoltoso distribuire i programmi, per cui non lo uso.

Se ho un attimo di tempo comunque lo provo

Sergio

[SirJo]

Ho capito che la cosa non si può fare (almeno credo) perchè in realtà la riga che sbaglia è questa:
_Linea = pbl_Panel.Controls("frmLinea" & _i)
dato che i LineShape (che fanno parte del PowerPacks) non sono in realtà degli oggetti contenuti nel Controls

Sergio

[Luberto Mario]

ancora grazie SirJo
approfitto della tua gentilezza
visto che non usi il powerpacks
quale e' l' alternativa?