Segun lo que pidieron en el foro, un ejemplo sensillo de una ventana emergente al estilo del msn.
Solo tienen que crear un form, y agregar un commandbutton y un timer... Al timer ponerle ENABLED=FALSE y INTERVAL=10
Con eso pueden hacer la prueba y lograr el efecto, luego lo adaptan y mejoran como ustedes quieren.
Código vb:
Ver originalPrivate Sub Command1_Click()
Me.Top = Screen.Height
Me.Left = Screen.Width - Me.Width
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Me.Top > (Screen.Height - Me.Height) Then
Me.Top = Me.Top - 100
Else
Timer1.Enabled = False
End If
End Sub