RE:Cambiar los codigos en una opcion
El codigo no lo podes cambiar, pero lo que si podes hacer es:
1- Reescribir el codigo este, pero en lugar de en el evento resize, hacerlo en un sub aparte, y tomando los datos que vas a cambiar constantemente como parametros. Por ej:
Public Sub ResizeForm(iWidth as Single)
Dim I
Dim Y
correo.Cls
correo.AutoRedraw = True
correo.DrawStyle = 6
correo.DrawMode = 13
correo.DrawWidth = 2
correo.ScaleMode = 3
For I = 0 To 255
correo.Line (0, Y)-(iWidth, Y + 2), RGB(0, I, 0), BF
Y = Y + 2
Next I
End Sub
y lo llamarias asi:
Desde el evento form_Resize:
ResizeForm correo.width
Desde otro form:
Form1.ResizeForm iAnchoenOpcion
(Obviamente, suponiendo que la ventana principal se llame Form1)
SUERTE