Luan vb yüklü değil deneyemiyorum ama tahmin ediyorum biraz nasıl bişey teşekkürler

güzel bir açılış kapanış Private Sub ExplodeVistaEfect With frm. Width = 0. Height = 0. Show For x = nerden To nereye Step adim. Move / 2, / 2, x, x DoEvents Next End With End Sub Private Sub Form_Load ExplodeVistaEfect Me, 0, 10000, 50 End Sub Private Sub Form_Unload ExplodeVistaEfect Me, 10000, 0, -50 End Sub