У вас никогда не было желания создать свой собственный хранитель экрана в VB? Если да, то сейчас мы приведем элементарный пример, как это можно сделать.

Идея очень проста — в качестве заставки будет выдаваться форма размером с весь экран, на которую вы можете по собственному желанию нанести любые изображения.
Для начала создайте новый проект Standard EXE. Поместите на форму элемент управления Label, содержащий какой-либо текст. Затем добавьте туда элемент управления Timer, для которого установите свойство Interval как 1000 (то есть 1 с). Теперь введите следующий код для вашей формы:

Private Sub Form_Click()
Unload Me
End Sub
Private Sub Form_Load()
If App.PrevInstance Then Unload Me
End Sub
Private Sub Timer1_Timer()
Label1.Visible = Not (Label1.Visible)
End Sub

После этого установите свойство WindowState для формы как Maximized, а свойство Border Style как None. Большинство хранителей экрана занимают полный размер экрана и не имеют строки заголовка.
Выберите команду File|Make EXE File и в появившемся диалоговом окне Make Project щелкните кнопку Options. В диалоговом окне Project Properties в текстовом поле Application Title введите прописными буквами строку SCRNSAVE:. (Например, мы можем назвать наше приложение SCRNSAVEaestAppl.) При задании имени исполняемого файла не забудьте поменять расширение: оно должно быть .SCR вместо .ЕХЕ. (Для нашего примера назовите исполняемый файл как TestAppl.scr.) Щелкните ОК.
Вот и все. Теперь не забудьте поместить SCR-файл в каталог \Windows\System и поменяйте хранитель экрана, как обычно, с помощью Control Panel.