Con respecto al algoritmo para conseguir "efectos"este es un code que encontré:
'<-- Codigo ofrecido por Tutores.org -->
Private Sub Form_Resize()
Form1.Cls
Form1.AutoRedraw = True
Form1.DrawStyle = 6
Form1.DrawMode = 13
Form1.DrawWidth = 2
Form1.ScaleMode = 3
Form1.ScaleHeight = (256 * 2)
For i = 0 To 255
Form1.Line (0, Y)-(Form1.Width, Y + 2), RGB(0, 0, i), BF
Y = Y + 2
Next i
End Sub
Y con lo de forms transparentes, por internet hay módulos con muchos ejemplos.
Un saludo!