01/09/2003, 08:29
|
 | | | Fecha de Ingreso: noviembre-2002
Mensajes: 99
Antigüedad: 22 años Puntos: 0 | |
| crear nuevo objeto
Hola
Estoy intentando crear una funcion que reciba un linea y que cree otra exactamente igual pero con otro color, la crea pero me la crea debajo y no se ve,
Public Function otraLinea(linea As Line)
Dim linea2 As Line
Set linea2 = linea
Set linea2 = Controls.Add("VB.line", "linea2")
With linea2
.X1 = linea.X1 + 200
.Y1 = linea.Y1 + 200
.X2 = linea.X2
.Y2 = linea.Y2
.BorderWidth = linea.BorderWidth
.BorderColor = vbYellow
.Visible = True
End With
End Function |