Mirad lo que he encontrado!!
igual alguno de vosotros ya lo conocia pero creo que merece la pena...
Quizas os suene Spotify, no?¿ Pero si eres de los que han intentado hacerse una cuenta no lo abreis conseguido seguramente...
Pues esta va ha ser tu pagina faborita: http://listen.grooveshark.com/

Ventajas:
+sin registrarse
+muuuuuuuuuuuuuucha musica
+puedes crear listas de reproduccion

Espero que os sirva...

Salu2!!!!1

Hola a todos, he estado trabajando para convertir tus Forms en persianas , si, como oyes, en persianas.
Ahora SI funciona, os lo prometo, sino, os devuelvo el dinero...
IMPORTANTE: DEBEIS PONER LA PROPIEDAD BORDERSTYLE EN NONE
Aqui va el code, (esto deberia estar en módulo):

' ////////////////////////////////////////////////////////////////
' // *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                           //
' ////////////////////////////////////////////////////////////////
 
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Public Sub Persiana(miForm As Form, Vel As Integer, Desplegar As Boolean, Alto As Boolean _
, Acabar As Boolean)
    Dim Largo As Integer
    With miForm
        If Desplegar = True Then
            If Alto = True Then
                Largo = .Height
                .Height = 0
                While Not .Height >= Largo
                    .Height = .Height + 2
                    Sleep Vel
                Wend
            Else
                Largo = .Width
                .Width = 0
                While Not .Width >= Largo
                    .Width = .Width + 2
                    Sleep Vel
                Wend
            End If
        Else
            If Alto = True Then
                While Not .Height <= 10
                    .Height = .Height - 10
                    Sleep Vel
                Wend
            Else
                While Not .Width <= 10
                    .Width = .Width - 2
                    Sleep Vel
                Wend
            End If
        End If
    End With
    If Acabar = True Then End
End Sub

Bien, ahora para llamarlo desde un Form pondríamos esto:

Private Sub Form_Activate()
    Call Persiana(Me, 5, False, True, True)
End Sub

( esta llamada se ejerceria sobre el Form actual, con una velocidad de 5(si quereis que vaya mas despacio aumentar el valor, no bajarlo ), para que se cierre la persiana, de abajo a arriba y que al completarse se finalice el programa)

Quizas alguien tenga alguna duda preguntar, que es gratis...

Salu2!

HOla, aqui les dejo uno de mis últimos proyectos a ver si les gusta:

HoO0la!! Mirar que facil os lo pongo con una duda tan sencilla , si tengo un textbox con la propiedad multiline, seria posible poner de color rojo(por jemplo) la primera linea??
y una palabra en concreto??

Muchas gracias!!

?¿?

Ho0OLa!! Todo el mundo sabe que las matematicas estan muy ligadas a la programacion, y hay casos en los que hecho de menos saber algo mas de matematicas la verdad Como las matematicas es un mundo muy amplio, me gustaria que m dijeran que campos de la misma son los mas utilizados a la hora de programar, y si me recomiendan algo para leer sobre el tema...

Gracias por adelntado!!

HoOOla, estoy buscando una manera de hacer una etiqueta para un progrma, en ella iria el nombre del programa, y en pequeño mi nick. Tambien me valdria unas letras originles, o algo similar...

Agradezco la ayuda

Creen que existen los extraterrestres??

HOola, miren que facil se lo voy a poner con una duda tan sencilla, necesito saber como hago para que si pulso el boton derecho del raton salga un msgbox, por ejemplo... Tienen que tener en cuenta que no es sobre un formulario, que seria asi:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    MsgBox "hola"
End sub
 

Gracias!!

Hola, echenme una mano, miren lo que hago:

-utilizo el cheat engine y lo pongo a 0.75
-utilizo el hlves y me hice la configuracion minima

bien, con todo esto consigo reducir el ping hasta 80 mas o menos...
pero va todo lentisimo y no pudeo correr con soltura a causa de q estoy realentizando la lllgada de paketes con el cheat engine...He estado buscando por muchos sitios, y ya no se me ocurre nada mas...
Ayudenme!!

gracias