-Añadimos un Form y lo llamamos FrmEvent
-Añadimos un 2 timers con sus nombres predeterminados de intervalo 1 y en enabled = False y el Timer 2 de intervalo 6000
-BorderStyle = 3
-Controlbox = False
-Caption = "" es decir nada de titulo.
-Ahora lo ajustáis como querais...grande...pequeño etc...
-Ponéis un Label con su nombre predeterminado
-Ahora damos click al form y ponemos
Código
Private Sub Form_Load() Me.Height = "0" End Sub Private Sub Timer1_Timer() Me.Height = Me.Height + 5 If Me.Height = "1155" Then Timer1.Enabled = False Timer2.Enabled = True End If End Sub Private Sub Timer2_Timer() Unload Me End Sub
y en el cliente, es decir donde llamais ala ventana cuando se conecte alguien haceis,
Código
Public Function EventMSN(Victima as String) FrmEvent.Label1.Caption = Victima FrmEvent.Timer1.Enabled = True End Function
Ahora ajustad el form para que se abra donde queráis, lo hice porque me aburría !! Se aceptan criticas...





Autor


En línea



"Si no visitas mi blog, Chuck te dará una patada giratoria"

