home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 6 Unleashed…sional Reference Edition) / Visual_Basic_6_Unleashed_Professional_Reference_Edition_Sams_1999.iso / Source / CHAP33 / CH3501.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-04-29  |  1.9 KB  |  64 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSlideShow 
  3.    Caption         =   "Control Array Example"
  4.    ClientHeight    =   6225
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   6420
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   6225
  10.    ScaleWidth      =   6420
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.Image imgFullSize 
  13.       BorderStyle     =   1  'Fixed Single
  14.       Height          =   4575
  15.       Left            =   120
  16.       Stretch         =   -1  'True
  17.       Top             =   1560
  18.       Width           =   6240
  19.    End
  20.    Begin VB.Image imgThumbnail 
  21.       BorderStyle     =   1  'Fixed Single
  22.       Height          =   1305
  23.       Index           =   0
  24.       Left            =   120
  25.       Stretch         =   -1  'True
  26.       Top             =   135
  27.       Width           =   1485
  28.    End
  29.    Begin VB.Image imgThumbnail 
  30.       BorderStyle     =   1  'Fixed Single
  31.       Height          =   1305
  32.       Index           =   1
  33.       Left            =   1710
  34.       Stretch         =   -1  'True
  35.       Top             =   135
  36.       Width           =   1485
  37.    End
  38.    Begin VB.Image imgThumbnail 
  39.       BorderStyle     =   1  'Fixed Single
  40.       Height          =   1305
  41.       Index           =   2
  42.       Left            =   3285
  43.       Stretch         =   -1  'True
  44.       Top             =   135
  45.       Width           =   1485
  46.    End
  47.    Begin VB.Image imgThumbnail 
  48.       BorderStyle     =   1  'Fixed Single
  49.       Height          =   1305
  50.       Index           =   3
  51.       Left            =   4860
  52.       Stretch         =   -1  'True
  53.       Top             =   120
  54.       Width           =   1485
  55.    End
  56. Attribute VB_Name = "frmSlideShow"
  57. Attribute VB_GlobalNameSpace = False
  58. Attribute VB_Creatable = False
  59. Attribute VB_PredeclaredId = True
  60. Attribute VB_Exposed = False
  61. Private Sub imgThumbnail_Click(Index As Integer)
  62.     imgFullSize = imgThumbnail(Index)
  63. End Sub
  64.