The Emulator
23 Mensaje(s)
|
| Enviado - 28/7/2004 |
| |
Hola
Vamos haber como nos sale esto.
Coloca un Picture1 en un Form, Cambia la propiedad AutoRedraw=True del Picture1.
Coloca el siguiente codigo e el Form
Private Sub Form_Load()
Dim X as Integer
Picture1.ScaleHeight=255
For X=0 To 255
Picture1.Line(0,X)-(Picture1.Width,X),RGB(255-X,X,255-X),B
Next
End Sub
Espero te funcione Lo hize sin el VB por esta razon puede que algunas propiedades esten mal escritas solo es que las corrijas.
Saludos
www.theemulator.tk Emuladores y Roms |
| |
|
