Efeito Windows Vista

[Luzifer]

Ola a todos. Estou com um problema que é o seguinte :

-Fiz uma pequena função em vb6 para window xp, que faz o efeito (+- parecido) a quando da abertura de uma janela no windows Vista.Até aqui tudo bem , só que o meu problema é fazer este efeito também no Visual Studio 2005, o que eu não consigo porque estou a iniciar agora no V.S.2005.

cump.

Luzifer

Junto anexo o código para o VB6

============================

Private Sub ExplodeVistaEfect(ByRef frm As Form)

With frm

.Width = 0

.Height = 0

.Show

For x = 0 To 10000 Step 50

.Move (Screen.Width - .Width) / 2, (Screen.Height - .Height) / 2, x, x

DoEvents

Next

End With

End Sub

Private Sub Form_Load()

ExplodeVistaEfect Me

End Sub

============================

[Graymalkin]

Bom, acho que ao invés do método Move() você vai ter que usar a propriedade Location e só deve reparar que DoEvents agora fica na classe Application.

Abraços,

Graymalkin