*/
Know a good article or link that we're missing? Submit it!
*/

View \ORIGINAL.FRM

ManyThings 3.1 Screensaver in VB

Submitted By: Unknown
Rating: starhalf star (Rate It)


VERSION 2.00
Begin Form Original
   AutoRedraw      =   -1  'True
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   ControlBox      =   0   'False
   Height          =   6255
   Icon            =   ORIGINAL.FRX:0000
   Left            =   510
   LinkTopic       =   "Form1"
   ScaleHeight     =   390
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   525
   Top             =   1380
   Visible         =   0   'False
   Width           =   7995
End
' Original -- this form is used to save the original windows
'   desktop bitmap that exists when the screen saver is
'   started

Option Explicit

Sub Form_Load ()

    ' stretch to full screen
    'Move 0, 0, Screen.Width, Screen.Height

End Sub

corner
© 1996-2008 CommunityHeaven LLC. All rights reserved. Reproduction in whole or in part, in any form or medium without express written permission is prohibited.
Violators of this policy may be subject to legal action. Please read our Terms Of Use and Privacy Statement for more information.
North American business development: Nicolai Wadstrom. Publisher: Lars Hagelin.