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