Truque para Visual Basic

[Nobau]

Deixo-vos uma pequena rotina que podem incluir nos vossos programas em Visual Basic, esta rotina faz um o unload dos form de forma artística.

Code Select Expand

Sub FormExit(frm As Form)

Dim X As Long

Dim factor  As Double

Dim width As Integer

Dim height As Integer



height = frm.height

width = frm.width

factor = height / width

frm.width = 0

frm.height = 0



For X = width To 0 Step -800 \\'Aqui podem mudar os valores para ser mais rapido ou mais lento

frm.width = X

frm.height = X * factor

With frm

.Left = (Screen.width - .width) / 2

.Top = (Screen.height - .height) / 2

End With

Next X



End Sub

No evento form unload façam a chamada a rotina

Code Select Expand

Private Sub Form_Unload(Cancel As Integer)

   Formexit Me

End Sub
Espero que gostem  :wink:

[KTachyon]

Formatei o código para ficar mais legível.