home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / t2win-32 / _tile.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-08-24  |  998 b   |  35 lines
  1. VERSION 4.00
  2. Begin VB.Form frmTile 
  3.    Caption         =   "TileBitmap"
  4.    ClientHeight    =   3375
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   4980
  8.    Height          =   3780
  9.    Left            =   1080
  10.    MDIChild        =   -1  'True
  11.    ScaleHeight     =   3375
  12.    ScaleWidth      =   4980
  13.    Top             =   1170
  14.    Width           =   5100
  15. Attribute VB_Name = "frmTile"
  16. Attribute VB_Creatable = False
  17. Attribute VB_Exposed = False
  18. Option Explicit
  19. Option Base 1
  20. Private Const Iteration = 25
  21. Dim IsLoaded         As Integer
  22. Dim TimerStartOk     As Integer
  23. Dim TimerCloseOk     As Integer
  24. Dim TimerHandle      As Integer
  25. Dim TimerValue       As Long
  26. Private Sub Form_Load()
  27.    IsLoaded = False
  28.    Show
  29.    IsLoaded = True
  30. End Sub
  31. Private Sub Form_Paint()
  32.    Dim intResult        As Integer
  33.    intResult = cTileBitmapOnWindow(Me.hWnd, App.Path + "\time2win.dib")
  34. End Sub
  35.