Como hacer un screen saver????

[jc_moty]

Hace como unos 2 años hice uno, y la idea principal que manejaba es que en un form ponia un Picture, un timer y un FileListbox, la idea es que cada cierto tiempo se carge en el Picture la imagen que se seleccionaba en el FileListbox, el código es este:

Código:

Private Sub Form_Activate()
File1.Path = "C:\Mis Imagenes"
File1.ListIndex = 0
Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii >= 2 Then End
End Sub

Private Sub Timer1_Timer()
If File1.ListIndex < File1.ListCount - 1 Then
    File1.ListIndex = File1.ListIndex + 1
    Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
Else
    File1.ListIndex = 0
    Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
End If
End Sub

Ahora bien, esto es lo de menos, para que tu aplicacion funcione como un screenSaver lo que tenes que hacer es que al generar el ejecutable tendrias que poner el nombre de tu aplicacion algo asi como: "ScreenSaver.scr".
Las ideas para que es lo que deberia hacer un screensaver pueden ser muy variadas: mostrar imagenes, hacer dibujos, etc; todo dependera de tu imaginacion y creatividad.

Saludos