Faça o seu Screen Saver no Visual Basic.

    Vamos criar um programa no Visual Basic e transformá-lo em um Screen Saver. Pode parecer
    complexo, mas não é.

    Primeiro vamos criar um programa que vá enchendo a tela de pontos (o código foi tirado de
    um exemplo do próprio Visual Basic), e ,  a seguir fazê-lo funcionar como um Screen Saver.

    Para isto basta atentar-mos para os seguintes detalhes:

    1-Ao criar o programa o form dever ocupar toda a janela e não ter título, nem os botões
      para maximizar ou minimizar devem estar habilitados.

           Valores das propriedades do Form1
        ------------------------------------------
            Propriedade             Valor
        ------------------------------------------
            Caption                  ""
            ControlBox              False
            BackColor               &H00000000& (preto)
            MaxButton               False
            MinButton               False
            WindowState               2
       --------------------------------------------

    2-Insira o controle Timer no formulário (fig 1.0) e defina as propriedades

fig 1.0 |
        Valores das prop. de Timer1
        -------------------------------
           Propriedade      Valor
        -------------------------------
           Name             Timer1
           Enabled          True
           Interval         60
       --------------------------------

3-A seguir insira o código abaixo no evento timer do temporizador: (Aqui fica a seu critério , use a sua imaginação...) Private Sub Timer1_Timer() Dim CX, CY, Msg, XPos, YPos ' Declare variables. ScaleMode = 3 ' Set ScaleMode to ' pixels. DrawWidth = 5 ' Set DrawWidth. ForeColor = QBColor(4) ' Set background to red. FontSize = 24 ' Set point size. CX = ScaleWidth / 2 ' Get horizontal center. CY = ScaleHeight / 2 ' Get vertical center. Cls ' Clear form. Msg = "Bom Dia!" CurrentX = CX - TextWidth(Msg) / 2 ' Horizontal position. CurrentY = CY - TextHeight(Msg) ' Vertical position. Print Msg ' Print message. Do Counter = Counter + 1 XPos = Rnd * ScaleWidth ' Get horizontal position. YPos = Rnd * ScaleHeight ' Get vertical position. PSet (XPos, YPos), QBColor(Rnd * 15) ' Draw confetti. DoEvents ' Yield to other If Counter > 2000 Then 'contador para limpar a tela Counter = 0 Form1.Cls End If Loop ' processando End Sub 4-Como o Screen Saver pode ser ativado mais de uma vez , insira o código a seguir no evento Load do formulário para evitar mais de uma instância de seu aplicativo na memória. Private Sub Form_Load() If App.PrevInstance Then End End If End Sub 5-Para encerrar o programa utilize os eventos MouseMove , MouseDown e KeyDown, pois quando o usuário pressionar algo ou movimentar o mouse o Screen Saver deve ser encerrado. Insira os códigos como descrito abaixo : Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) End End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) End End Sub Private Sub Form_KeyPress(KeyAscii As Integer) End End Sub 6-Como o evento MouseMove é ativado quando o form for lido pela primeira vez, insira o código abaixo no evento MouseMouse para não fechar o programa na sua ativação. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Static conta As Integer If conta > 3 Then End Else conta = conta + 1 End If End Sub 7-Agora ative a opção File->Make EXE File... e informe o nome do seu Screen Saver. 8-Troque a extensão EXE do arquivo gerado para SCR, e copie o arquivo para o diretório \WINDOWS\SYSTEM 9-Agora configure a proteção de tela no seu Windows 95 selecionando o nome do seu programa como o protetor de tela. 10-Se quiser pode incrementar ainda mais este exemplo, mas atenção , eu não testei este exemplo no Windows 3.X, só no Windows 95. Tchau!

Retorna