Langsung Aja Ke Source nya
Private Sub Form_load()
    Do Until Me.Top <= -15000
        Me.Width = Me.Width - 300
        Me.Left = Me.Left + 150
        Me.Top = Me.Top - 50
        Me.Height = Me.Height - 150
        Me.Refresh
        DoEvents
    Loop
    Unload Me: End
End SubBisa Juga DiGunakan Di Injector Pointblank 
0 komentar:
Posting Komentar