¿Cómo escribir una animación de ventana emergente que tiembla en vb?

Atenuar MyValue como entero

Atenuar i como entero

Subcomando privado1_Click()

Timer1.Enabled = True

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