home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / LVB / T2W32543.ZIP / _TILE.FRM < prev    next >
Text File  |  1998-05-21  |  993b  |  52 lines
  1. VERSION 5.00
  2. Begin VB.Form frmTile 
  3.    Caption         =   "TileBitmap"
  4.    ClientHeight    =   3375
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   4980
  8.    MDIChild        =   -1  'True
  9.    PaletteMode     =   1  'UseZOrder
  10.    ScaleHeight     =   3375
  11.    ScaleWidth      =   4980
  12. End
  13. Attribute VB_Name = "frmTile"
  14. Attribute VB_GlobalNameSpace = False
  15. Attribute VB_Creatable = False
  16. Attribute VB_PredeclaredId = True
  17. Attribute VB_Exposed = False
  18. Option Explicit
  19. Option Base 1
  20.  
  21. Private Const Iteration = 25
  22.  
  23. Dim IsLoaded         As Integer
  24.  
  25. Dim TimerStartOk     As Integer
  26. Dim TimerCloseOk     As Integer
  27.  
  28. Dim TimerHandle      As Integer
  29. Dim TimerValue       As Long
  30.  
  31.  
  32. Private Sub Form_Load()
  33.  
  34.    IsLoaded = False
  35.    
  36.    Show
  37.    
  38.    IsLoaded = True
  39.    
  40. End Sub
  41.  
  42.  
  43. Private Sub Form_Paint()
  44.  
  45.    Dim intResult        As Integer
  46.    
  47.    intResult = cTileBitmapOnWindow(Me.hWnd, App.Path + "\time2win.dib")
  48.    
  49. End Sub
  50.  
  51.  
  52.