1)
Para activar el salvapantallas que está configurado en Windows usa el sig. código (agrega un command a un proyecto nuevo y pega esto):
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
'**************Fin del código*******
2)
Si en cambio lo que quieres es activar cualquier salvapantallas, agrega un command a un proyecto nuevo y usa el sig. código:
Private Sub Command1_Click()
Shell "C:WindowsSystemLaberinto 3d.scr /s"
End Sub
Normalmente los salvapantallas están en el directorio de sistema, pero este puede ser diferente en cada instalación, por lo que deberías usar la API GetSystemDirectory para saber donde es.
3)
Si lo que quieres es programar uno, tienes que cambiar la extensión .exe por .scr.
En la dirección
http://groups.google.com.ar/groups?q=vi ... cl&rnum=11 hay más datos.
Saludos,
Javier
