Membuat Efek Blow pada Form

Membuat efek/animasi blow/explode pada sebuah form.

Option Explicit 
 
Type RECT 
  Left As Long 
  Top As Long 
  Right As Long 
  Bottom As Long 
End Type 
 
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long 
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long 
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long 
Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long 
Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long 
Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long 
Declare Function SelectObject Lib "user32" (ByVal hdc As Long, ByVal hObject As Long) As Long 
Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long 
 
Public Const   IMPLODE_EXPLODE_VALUE = 1500 'you can change the value 
 
Sub ExplodeForm(f As Form, Movement As Integer) 
    Dim myRect As RECT 
    Dim formWidth%, formHeight%, i%, X%, Y%, Cx%, Cy% 
    Dim TheScreen As Long 
  Dim Brush As Long 
  GetWindowRect f.hwnd, myRect 
    formWidth = (myRect.Right - myRect.Left) 
    formHeight = myRect.Bottom - myRect.Top 
      TheScreen = GetDC(0) 
    Brush = CreateSolidBrush(f.BackColor) 
    For i = 1 To Movement 
        Cx = formWidth * (i / Movement) 
        Cy = formHeight * (i / Movement) 
        X = myRect.Left + (formWidth - Cx) / 2 
        Y = myRect.Top + (formHeight - Cy) / 2 
        Rectangle TheScreen, X, Y, X + Cx, Y + Cy 
    Next i 
  X = ReleaseDC(0, TheScreen) 
    DeleteObject (Brush) 
End Sub 
 
Public Sub ImplodeForm(f As Form, Movement As Integer) 
    Dim myRect As RECT 
    Dim formWidth%, formHeight%, i%, X%, Y%, Cx%, Cy% 
    Dim TheScreen As Long 
    Dim Brush As Long 
    GetWindowRect f.hwnd, myRect 
    formWidth = (myRect.Right - myRect.Left) 
    formHeight = myRect.Bottom - myRect.Top 
    TheScreen = GetDC(0) 
    Brush = CreateSolidBrush(f.BackColor) 
    For i = Movement To 1 Step -1 
        Cx = formWidth * (i / Movement) 
        Cy = formHeight * (i / Movement) 
        X = myRect.Left + (formWidth - Cx)   / 2 
        Y = myRect.Top + (formHeight - Cy) / 2 
        Rectangle TheScreen, X, Y, X + Cx, Y + Cy 
    Next i 
    X = ReleaseDC(0, TheScreen) 
    DeleteObject (Brush) 
End Sub 

Contoh penggunaan membuat efek ledakan pada form

Private Sub Command1_Click() 
    Call ImplodeForm(Me, IMPLODE_EXPLODE_VALUE) 
    End 
    Set Form1 = Nothing 
End Sub 
   
Private Sub Form_Load() 
    Call ExplodeForm(Me, IMPLODE_EXPLODE_VALUE) 
End Sub