Flip and Shake Screen(VB)

[Sub_Zero]

Codul acesta a fost facut de karstenn

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long 
Private Const HWND_TOPMOST = -1 
Private Const SWP_NOMOVE = &H2 
Private Const SWP_NOSIZE = &H1 

Const RCScale = 200 
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long 
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long 
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long 

Private Sub Form_Initialize() 
Dim W, H 
W = Screen.Width / 15 
H = Screen.Height / 15 
StretchBlt hdc, 0, H, W, -H, GetDC(0&), 0, 0, W, H, vbSrcCopy 

End Sub 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
End 
End Sub 

Private Sub Timer1_Timer() 
Me.Left = Me.Left - 2 * RCScale 
Me.Top = Me.Top - 0 * RCScale 
Me.Left = Me.Left + 2 * RCScale 
Me.Top = Me.Top + 0 * RCScale 

End Sub

[avkhackteam]

ai uitat sa pui credits

[Sub_Zero]

Leas fi pus daca ar fi avut,daca gasesti cine l-a facut spune-mi sa editez postul,de unde l-am luat nu a avut credits

[avkhackteam]

Pey l-a facut unu de pe http://www.planet-source-code.com e si acolo ...

[Sub_Zero]

ok am gast cine l-a facut