bueno... hoy a pedido de un amigo
jaja hice un codigo de como desplazar un form al estilo de la ventana de aviso de msn... el codigo es bastante sencillo...
solo necesita un timer:
espero q a alguien le sea ultil...
![;) ;)](https://forum.elhacker.net/Smileys/navidad/wink.gif)
solo necesita un timer:
CitarDim Cont As Long, Dire As Byte
Private Sub Form_Load()
Timer1.Interval = 10
Me.Left = 8000
Me.Top = 8500
Dire = 1
Cont = 0
End Sub
Private Sub Timer1_Timer()
If Dire = 1 Then
Me.Top = Me.Top - 50
Cont = Cont + 1
If Cont = 50 Then
Dire = 2
Cont = 0
End If
End If
If Dire = 2 Then
Cont = Cont + 1
If Cont = 100 Then
Dire = 3
Cont = 0
End If
End If
If Dire = 3 Then
Me.Top = Me.Top + 50
Cont = Cont + 1
If Cont = 50 Then
End
End If
End If
End Sub
espero q a alguien le sea ultil...