¿Cómo escribir una animación de ventana emergente que tiembla en vb?
Opción explícita
Atenuar MyValue como entero
Atenuar i como entero
Subcomando privado1_Click()
Timer1.Enabled = True p>
i = 0
Fin Sub
Sub privado Form_Load()
Timer1.Interval = 100
Fin Sub
Private Sub Timer1_Timer()
Randomize ' Inicializa el generador de números aleatorios.
MiValor = (1 - 2 * Rnd) * 1000
Me.Left = MiValor + Me.ScaleHeight * Rnd
Me.Top = MiValor + Yo .ScaleHeight * Rnd
i = i + 1
Si i >= 20 Entonces Timer1.Enabled = False
End Sub