VERSION 5.00
Begin VB.Form frmImageViewer 
   AutoRedraw      =   -1  'True
   BorderStyle     =   5  'Änderbares Werkzeugfenster
   Caption         =   "Form2"
   ClientHeight    =   5085
   ClientLeft      =   60
   ClientTop       =   300
   ClientWidth     =   7320
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5085
   ScaleWidth      =   7320
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows-Standard
   Begin VB.CommandButton cmdClose 
      Caption         =   "Schließen"
      Height          =   435
      Left            =   3060
      TabIndex        =   0
      Top             =   4590
      Width           =   1095
   End
   Begin VB.Image Picture1 
      Height          =   3435
      Left            =   450
      Top             =   300
      Width           =   5415
   End
End
Attribute VB_Name = "frmImageViewer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdClose_Click()
    Unload Me
End Sub



Private Sub Form_Activate()
    
    Picture1.Stretch = True
       
    Me.Width = Picture1.Width * 1.1
    Me.Height = Picture1.Height * 1.1 + cmdClose.Height * 3
    
    cmdClose.Left = (Me.ScaleWidth - cmdClose.Width) / 2
    cmdClose.Top = Me.ScaleHeight - cmdClose.Height * 1.5
  
End Sub

Private Sub Form_Load()
    Me.Top = 0
    Me.Left = 0
    Picture1.Left = 0
    Picture1.Top = 0
    
End Sub