Visual Basic - PROTECTOR DE PANTALLA.

Saludos.

Deseo agregar un protector de pantalla a mi aplicación en VB6 Profesional, algo así como la marquesina que viene en algunos PC's. Como puedo hacer esto, manejando todo desde mi aplicación?, e incluirla en ésta para su empaquetado y distribución?

Gracias.

bueno esto activa el protetor de pantalla del equipo
osea el de windows
bueno aqui esta la programcion
Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const WM_SYSCOMMAND = &H112&
Const SC_SCREENSAVE = &HF140&

Private Sub Command1_Click()
Dim lRes As Long
lRes = SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
End Sub

despues ponei paque se ative solo con un timer en fin