-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...