VERSION 5.00
Object = "{2F815EB6-3A15-4C5D-ADB0-464DACCBB1BB}#1.0#0"; "VisiWinStudio.ocx"
Object = "{08A903C4-400D-4A2C-9D1A-5E7018B95609}#1.0#0"; "VWSLanguage.ocx"
Begin VB.Form frmPicBox 
   Caption         =   "VW-PicBox"
   ClientHeight    =   9630
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   ClipControls    =   0   'False
   LinkTopic       =   "Form6"
   MDIChild        =   -1  'True
   ScaleHeight     =   9630
   ScaleWidth      =   15240
   WindowState     =   2  'Maximiert
   Begin VB.Timer Timer2 
      Interval        =   500
      Left            =   1065
      Top             =   225
   End
   Begin VB.Timer Timer1 
      Interval        =   150
      Left            =   345
      Top             =   240
   End
   Begin VB.Frame Frame1 
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   8760
      Left            =   180
      TabIndex        =   1
      Top             =   675
      Width           =   14865
      Begin VisiWinStudioLib.VWSPicBox VWSPicBox3 
         Height          =   4740
         Left            =   8085
         TabIndex        =   3
         Top             =   2160
         Width           =   5010
         _cx             =   8837
         _cy             =   8361
         Enabled         =   -1  'True
         BackColor       =   -2147483633
         Picture1        =   "frmPicBox.frx":0000
         Picture2        =   "frmPicBox.frx":0DFC
         Picture3        =   "frmPicBox.frx":177D
         Picture4        =   "frmPicBox.frx":2114
         Picture5        =   "frmPicBox.frx":2A9C
         Picture6        =   "frmPicBox.frx":346D
         Picture7        =   "frmPicBox.frx":3EB1
         Picture8        =   "frmPicBox.frx":4805
         PictureOff      =   "frmPicBox.frx":50C3
         BackPicture     =   "frmPicBox.frx":50DF
         Mode            =   0
         Range           =   8
         State           =   0
         Offset          =   0
         BitNumber       =   0
         ShadowStyle     =   4
         ShadowDepth     =   2
         ShadowColor1    =   -2147483632
         ShadowColor2    =   -2147483634
         AutoSize        =   -1  'True
         OpaqueContent   =   0   'False
         ShowBackPicture =   -1  'True
         TransparentColorOn=   0   'False
         TransparentColor=   16777215
         VWItem          =   "__UNLINKED_I4"
         Blink           =   0
         RecipeMember    =   0   'False
      End
      Begin VisiWinStudioLib.VWSPicBox VWSPicBox2 
         Height          =   4740
         Left            =   1470
         TabIndex        =   2
         Top             =   2160
         Width           =   5010
         _cx             =   8837
         _cy             =   8361
         Enabled         =   -1  'True
         BackColor       =   -2147483633
         Picture1        =   "frmPicBox.frx":5B7F
         Picture2        =   "frmPicBox.frx":6647
         Picture3        =   "frmPicBox.frx":710F
         Picture4        =   "frmPicBox.frx":7BD7
         Picture5        =   "frmPicBox.frx":869F
         Picture6        =   "frmPicBox.frx":9167
         Picture7        =   "frmPicBox.frx":9C2F
         Picture8        =   "frmPicBox.frx":A6F7
         PictureOff      =   "frmPicBox.frx":B1BF
         BackPicture     =   "frmPicBox.frx":BC87
         Mode            =   0
         Range           =   8
         State           =   0
         Offset          =   0
         BitNumber       =   0
         ShadowStyle     =   4
         ShadowDepth     =   2
         ShadowColor1    =   -2147483632
         ShadowColor2    =   -2147483634
         AutoSize        =   0   'False
         OpaqueContent   =   -1  'True
         ShowBackPicture =   0   'False
         TransparentColorOn=   0   'False
         TransparentColor=   16777215
         VWItem          =   "__UNLINKED_I4"
         Blink           =   0
         RecipeMember    =   0   'False
      End
      Begin VWSLanguageLib.VWSIndex VWSIndex24 
         Height          =   255
         Left            =   120
         Top             =   -15
         Width           =   3000
         _cx             =   5292
         _cy             =   450
         BackStyle       =   1
         Enabled         =   -1  'True
         Alignment       =   1
         ShadowColor1    =   -2147483632
         ShadowColor2    =   -2147483634
         ShadowDepth     =   2
         ShadowStyle     =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BackColorOff    =   -2147483633
         BackColorOn     =   -2147483643
         ForeColorOff    =   -2147483640
         ForeColorOn     =   -2147483640
         VWItem          =   ""
         Blink           =   0
         BitNumber       =   0
         Mode            =   -1
         Offset          =   0
         Range           =   1
         IndexGroup      =   "PicBox"
         IndexPrefix     =   ""
         FontClass       =   ""
         OffsetText      =   0
         TextOn          =   ""
         TextOff         =   "Bilder"
      End
   End
   Begin VB.Label Label11 
      Alignment       =   2  'Zentriert
      BackColor       =   &H00E3E3E3&
      Caption         =   "VWSPicBox-Control"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00DE8800&
      Height          =   315
      Left            =   60
      TabIndex        =   0
      Top             =   90
      Width           =   15195
   End
End
Attribute VB_Name = "frmPicBox"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Timer1_Timer()
    
    If VWSPicBox3.State = 8 Then
        VWSPicBox3.State = 1
    Else
        VWSPicBox3.State = VWSPicBox3.State + 1
    End If
    
    
End Sub

Private Sub Timer2_Timer()
    
    If VWSPicBox2.State = 8 Then
        VWSPicBox2.State = 0
    Else
        VWSPicBox2.State = VWSPicBox2.State + 1
    End If

End Sub