Hola, pues quisiera compartir un codigo con ustedes. Es un efecto destroza pantalla.

Agreguen un form y coloquenle el nombre de: FrmMain
La propiedad BorderStyle = 0-None

y peguen este code...

Option Explicit
Private Declare Function GetDC Lib "USER32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "USER32" (ByVal hwnd As Long, ByVal hDC As Long) As Long
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 lngDC As Long
Private blnLoop As Boolean
Dim m1 As Integer, m2 As Integer
 
Private Sub Form_Click()
blnLoop = vbFalse
Unload Me
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
blnLoop = vbFalse
End Sub
Sub ElEfecto()
Dim intX As Integer, intY As Integer
Dim intI As Integer, intJ As Integer
Dim intWidth As Integer, intHeight As Integer
intWidth = Screen.Width / Screen.TwipsPerPixelX
intHeight = Screen.Height / Screen.TwipsPerPixelY
frmMain.Width = Screen.Width
frmMain.Height = Screen.Height
lngDC = GetDC(0)
Call BitBlt(hDC, 0, 0, intWidth, intHeight, lngDC, 0, 0, vbSrcCopy)
frmMain.Visible = vbTrue
frmMain.AutoRedraw = vbFalse
Randomize
blnLoop = vbTrue
Do While blnLoop = vbTrue
intX = (intWidth - 128) * Rnd
intY = (intHeight - 128) * Rnd
intI = m1 * Rnd - 1
intJ = m2 * Rnd - 1
Call BitBlt(frmMain.hDC, intX + intI, intY + intJ, 128, 128, frmMain.hDC, intX, intY, vbSrcCopy)
DoEvents
Loop
Set frmMain = Nothing
Call ReleaseDC(0, lngDC)
End
End Sub
 
Private Sub Form_Load()
On Error GoTo er1
frmMain.AutoRedraw = True
Dim ef As Integer
ef = GetSetting("MeltSCR", "Effect", "Effect")
 
Select Case ef
Case 0
m1 = 2: m2 = 2
 
Case 1
m1 = 20: m2 = 20
 
Case 2
m1 = 9: m2 = 9
 
Case 3
m1 = 0: m2 = 0
 
Case 4
m1 = 3: m2 = 3
 
Case 5
m1 = 5: m2 = 5
 
Case 6
m1 = 10000: m2 = 10000
 
Case 7
m1 = 1000: m2 = 1000
 
Case 8
m1 = 10: m2 = 2
 
Case 9
m1 = 2: m2 = 10
 
End Select
ElEfecto
Exit Sub
er1:
m1 = 2: m2 = 2
ElEfecto
End Sub
 
 

Pues si... Pero bueno es solo un aporte...

mmm este codigo se me hace familiar ja es parecido al que use en una de mis bromas ya hace tiempo tiene la misma idea es decir la raiz "-1,0,1" pero con otras virtudes ja. aca dejo mi chusco codigo de hace tiempo; solo que se enfoca a destr5ozar5 la pantalla actualmente activa y destrosandola jejeje.

<--Descargar Destroza Ventanas-->

respeten, XAO.

P.D.: Pon los creditos dequi8en a realizado este codigo ya quer recuerdo haberlo visto en otra pagina ya hace tiempo. por cierto ponlo full ya que se supone que se compi8laba como ".scr" o algo asi y es un salvapantallas a como lo recuerdo.

Por cierto se parece este efecto al mio pero el mio trabaja para que el usuario no trabaje jaja. si8 no saben como salirte denle un clic a la vetana animada y opriman la tecla "X".

Para compilarlo como ".scr" solo compilas el ".exe" y le cambias la extension a ".scr" y listo tu fondo de pantalla listo para usar xDDD

Bueno, hoy por fin he conseguido pillarme el VB portable (pero con posibilidad de compilar a .exe osea, de los buenos) y pues lo he probado personalmente....

Y la verdad, muy bueno ese code, me pondré a estudiarlo, ya que ahora por fin puedo programar en éste lenguaje, aunque he de decir que en realidad yo no diria que destroza la pantalla, ya que mas bien lo que hace es ponerla borrosa... 

Saludos