Hola buenas, aqui os presento mi ultimo invento :
Hacer garabatos de colores en tu formulario, es simple, pero me gusta el efecto...
Al cabo de unos seg tendriamos algo asi:


o así:
 

Bueno aqui va el codigo, es la cosa mas estupida que podais imaginar:
Necesitamos añadir:

* Un Timer
* Un ScrollBar
* Tres CommandButton (con una matriz)
* Un Label

' ////////////////////////////////////////////////////////////////
' // *Autor: *PsYkE1* (miguelin.majo@gmail.com)                 //
' // *Podeis agrandar o reducir el codigo, siempre y cuando se  //
' // respete la autoria y se me comuniquen esos cambios.        //
' // *Agradecimientos a BlackZeroX.                             //
' // *Visita http://foro.rthacker.net                           //
' ////////////////////////////////////////////////////////////////
 
'\\Variables
Dim R1 As Integer, R2 As Integer, R3 As Integer, R4 As Integer
Dim C1 As Integer, C2 As Integer, C3 As Integer
Dim L As Integer
Dim Relleno As Boolean
Dim Que As Variant
 
Private Sub Form_Load()
    ' Pongo titulo al Form
    Me.Caption = "*PsYkE1* - Garabatos"
    ' Asigno el caption a cada botón
    Command1(0).Caption = "Parar"
    Command1(1).Caption = "Rellenos"
    Command1(2).Caption = "Salir"
End Sub
 
Private Sub HScroll1_Scroll()
    ' El intervalo del Timer sea igual a el Value del ScrollBar
    Timer1.Interval = HScroll1.Value
    ' El Value del ScrollBar me aparezca en el Label1
    Label1.Caption = HScroll1.Value
End Sub
 
Private Sub Command1_Click(Index As Integer)
    'Segun el Index asigno unos comandos a cada botón
    Select Case Index
        '\\Parar
        Case 0
            ' Limpio el Form
            Me.Cls
            ' Depende del Caption hace una cosa u otra
            If Command1(0).Caption = "Parar" Then
                MsgBox "Se han quitado los garabatos de tu Formulario", vbInformation, "*PsYkE1* - Garabatos"
                Timer1.Enabled = False
                Command1(0).Caption = "Comenzar"
            Else
                Timer1.Enabled = True
                Command1(0).Caption = "Parar"
            End If
        '\\Rellenos
        Case 1
            ' Limpio el Form
            Me.Cls
            Timer1.Enabled = True
            Command1(0).Caption = "Parar"
            ' Depende del Caption hace una cosa u otra
            If Command1(1).Caption = "Rellenos" Then
                Relleno = True
                MsgBox "Ahora se hará con rectangulos opacos", vbInformation, "*PsYkE1* - Garabatos"
                Command1(1).Caption = "Huecos"
            Else
                Relleno = False
                MsgBox "Se han quitado los garabatos de tu Formulario", vbInformation, "*PsYkE1* - Garabatos"
                Command1(1).Caption = "Rellenos"
            End If
        '\\Salir
        Case 2
            ' Si el Timer esta activado pregunta si quieres salir
            If Timer1.Enabled = True Then
                Que = MsgBox("¿Deseas salir?", vbQuestion + vbYesNo, "*PsYkE1* - Garabatos")
                ' Si dices SI sales del programa
                If Que = vbYes Then End
            End If
        End Select
 
End Sub
 
Private Sub Timer1_Timer() ' Cada 5 milisegundos
 
' Etiqueta Rndm
Rndm:
 
    ' Para que me salgan números aleatorios
    Randomize
 
    With Me ' Con el formulario actual
        ' Coordenada x del punto de partida
        ' dentro del alto del Form
        R1 = Int(Rnd * .Height)
        ' Coordenada y del punto de partida
        ' dentro del alto del Form
        R2 = Int(Rnd * .Height)
        ' Coordenada x del punto final
        ' dentro del ancho del Form
        R3 = Int(Rnd * .Width)
        ' Coordenada y del punto final
        ' dentro del ancho del Form
        R4 = Int(Rnd * .Width)
    End With
 
    ' Si las coordenadas de partida coinciden con las finales voy a la etiqueta Rndm
    If R1 = R3 And R2 = R4 Then GoTo Rndm
 
    ' Tres números aleatorios para definir el color de nuestra futura linea
    C1 = Int(Rnd * 255)
    C2 = Int(Rnd * 255)
    C3 = Int(Rnd * 255)
 
    If Relleno = False Then
        L = Int(Rnd * 3 + 1)
        If L = 1 Then
            Line (R1, R2)-(R3, R4), RGB(C1, C2, C3) ' Lineas
        ElseIf L = 2 Then
            Circle (R1, R2), (R3), RGB(C1, C2, C3) ' Circulos
        Else
            Line (R1, R2)-(R3, R4), RGB(C1, C2, C3), B ' Rectándulos
        End If
    Else
        Line (R1, R2)-(R3, R4), RGB(C1, C2, C3), BF ' Rectangulos rellenos
    End If
 
End Sub

Descargalo en http://www.mediafire.com/?yymmaefy1ey

Espero que os haya gustado...  

Salu2!

Gracias, no tenia ni idea, solo fue un experimento...
Voy a mirar eso...

Salu2!

una correccion

Dim Que As Variant
 

Deberia ser

Private Que As VbMsgBoxResult
 

o mas sencillo metelo directamente en el

if msgbox(...) = vbyes then
...
end if
 

lo que devuelve no ocupa mas de 1 byte asi que podrias ponerlo en un byte y no en un vvariant que ocupa mas de 6 bytes (no recuerdo cuantyos esactamente).

P.D.: Cuando escribes msgbox vb6 te da la sintansis y al ultimo aparece as <TIPO>  el tipo es lo devuelto.

Dulce Infierno Lunar!¡.

se me olvido prueba con esto:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = Not MsgBox("salir realmente", vbOKCancel) = vbOK
End Sub
 

Dulces Lunas!¡.