=======================6vbpix.frm
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automation
Reference=*\G{00025E04-0000-0000-C000-000000000046}#3.5#0#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DC:\PROGRAM FIL#Microsoft DAO 2.5/3.51 Compatibility Library
Reference=*\G{33ADBFCC-3E0D-11D2-B948-00C04FA32195}#1.0#0#C:\WINDOWS\SYSTEM\DATIME.DLL#TIME
Reference=*\G{05589FA0-C356-11CE-BF01-00AA0055595A}#2.0#0#C:\WINDOWS\SYSTEM\amcompat.tlb#Microsoft ActiveMovie Control
Reference=*\G{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0#C:\WINDOWS\SYSTEM\SHDOCVW.DLL#Microsoft Internet Controls
Form=6vbpix.frm
Startup="Form1"
ExeName32="6vbpix.exe"
Command32=""
Name="Project1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="acte inc."
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
ThreadPerObject=0
MaxNumberOfThreads=1
[MS Transaction Server]
AutoRefresh=1

=======================6vbpix.frm
VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "VIEW PIX"
   ClientHeight    =   6390
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6015
   LinkTopic       =   "Form1"
   ScaleHeight     =   4.438
   ScaleMode       =   5  'Inch
   ScaleWidth      =   4.177
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.DirListBox dirList 
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   984
      Left            =   120
      TabIndex        =   2
      Top             =   3480
      Width           =   3612
   End
   Begin VB.FileListBox filList 
      BackColor       =   &H0000FFFF&
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1455
      Left            =   120
      TabIndex        =   1
      Top             =   4440
      Width           =   3612
   End
   Begin VB.Timer tmrView 
      Left            =   240
      Top             =   2760
   End
   Begin VB.DriveListBox drvImage 
      BackColor       =   &H0000FF00&
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   120
      TabIndex        =   0
      Top             =   3120
      Width           =   3615
   End
   Begin VB.Image imgWindow 
      DataSource      =   "filist"
      Height          =   6000
      Left            =   120
      Top             =   0
      Width           =   5880
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub dirList_Change()
  filList.Path = dirList.Path
End Sub

Private Sub drvImage_Change()
  On Error GoTo GError
  '
  dirList.Path = drvImage.Drive & "\"
  filList.Path = drvImage.Drive & "\"
  '
  Exit Sub
GError:
  MsgBox "Error #" & Err.Number
    dirList.Path = drvImage.Drive

End Sub

Private Sub filList_Click()
  LoadPic filList.Path & "\" & filList.FileName
End Sub

Private Sub Form_Load()
  Dim PauseTime, Start, Finish, TotalTime
  Dim autosize As Boolean
  '
  autosize = True
  '
  LoadPic "C:\frog.jpg"
  '
End Sub

Public Function LoadPic(sFileName As String)
  On Error Resume Next    ' Set up error handling.
  '
  Dim msg As String
  Dim file As Variant
  Dim imgfile As Variant
  file = sFileName
  imgfile = LoadPicture(sFileName)
  '
  Set imgWindow.Picture = LoadPicture(sFileName)
  ' Load bitmap.
  If Err Then
      msg = "Could not find file: " & sFileName
      MsgBox msg  ' Display error message.
      'Exit Sub    ' Quit if error occurs.
  Else
    Width = imgWindow.Width
    Form1.Caption = "VIEW PIX   " & Width & " x " & Height
  End If
'
End Function