Come ottenere l'effetto BlueScreen
Effetto Blu a sfumare del Setup

In un modulo Bas inserire:

Option Explicit

Public Sub Dither(vForm As Form)
Dim intLoop As Integer
vForm.DrawStyle = vbInsideSolid
vForm.DrawMode = vbCopyPen
vForm.ScaleMode = vbPixels
vForm.DrawWidth = 2
vForm.ScaleHeight = 255
For intLoop = 0 To 255
    'sfondo Blu
    vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(0, 0, 255 - intLoop), B

    'sfondo Verde
    'vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(0, 255 - intLoop, 0), B

    'sfondo Rosso
    'vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(255 - intLoop, 0, 0), B

    'sfondo Porpora
    'vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(255 - intLoop, 0, 255 - intLoop), B

    'sfondo Giallo
    'vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(255 - intLoop, 255 - intLoop, 0), B

    'sfondo Azzurro
    'vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(0, 255 - intLoop, 255 - intLoop), B

    'sfondo Grigio
    'vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(255 - intLoop, 255 - intLoop, 255 - intLoop), B

Next intLoop
End Sub

In un Form inserisci il seguente codice:

Option Explicit

Private Sub Form_Activate()
Dither Me
End Sub

Per avere l'effetto a tutto schermo, setta le proprietà del Form nel seguente modo:
BorderStyle = 0 - None
WindowState = 2 - Maximized

Testato su: Tutti i Sistemi operativi