home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD5634592000.psc / frmSplash.frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-05-09  |  1013 b   |  30 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   45
  6.    ClientTop       =   45
  7.    ClientWidth     =   4680
  8.    ClipControls    =   0   'False
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3195
  14.    ScaleWidth      =   4680
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows Default
  17. Attribute VB_Name = "frmSplash"
  18. Attribute VB_GlobalNameSpace = False
  19. Attribute VB_Creatable = False
  20. Attribute VB_PredeclaredId = True
  21. Attribute VB_Exposed = False
  22. Private Sub Form_Load()
  23.     DeskHdc = GetDC(0)
  24.     ret = BitBlt(picDC.hdc, 0, 0, Me.ScaleWidth, Me.ScaleHeight, DeskHdc, Me.Left / Screen.TwipsPerPixelX, Me.Top / Screen.TwipsPerPixelY, vbSrcCopy)
  25.     ret = ReleaseDC(0&, DeskHdc)
  26.     Blend Me, picDC, 50, 0, 0, Me.ScaleWidth, Me.ScaleHeight
  27.     Me.Show
  28.     Me.Refresh
  29. End Sub
  30.