VERSION 5.00
Begin VB.Form about 
   Caption         =   "About"
   ClientHeight    =   3195
   ClientLeft      =   5565
   ClientTop       =   1350
   ClientWidth     =   4680
   Icon            =   "about.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   Begin VB.Frame Frame1 
      Caption         =   "Copyright by:"
      Height          =   2895
      Left            =   180
      TabIndex        =   0
      Top             =   135
      Width           =   4305
      Begin VB.Label Label9 
         Caption         =   "Kraemer-juergen@web.de"
         ForeColor       =   &H00FF0000&
         Height          =   195
         Left            =   2160
         MouseIcon       =   "about.frx":030A
         MousePointer    =   99  'Benutzerdefiniert
         TabIndex        =   1
         Top             =   1605
         Width           =   1935
      End
      Begin VB.Label Label8 
         Caption         =   "www.wow-Design.de"
         ForeColor       =   &H00FF0000&
         Height          =   195
         Left            =   285
         MouseIcon       =   "about.frx":0614
         MousePointer    =   99  'Benutzerdefiniert
         TabIndex        =   2
         Top             =   1860
         Width           =   1515
      End
      Begin VB.Label Label7 
         Caption         =   "Andreas@Bondza.de"
         ForeColor       =   &H00FF0000&
         Height          =   195
         Left            =   285
         MouseIcon       =   "about.frx":091E
         MousePointer    =   99  'Benutzerdefiniert
         TabIndex        =   3
         Top             =   1605
         Width           =   1575
      End
      Begin VB.Label Label5 
         Caption         =   "www.Buch-Radel.de"
         ForeColor       =   &H00FF0000&
         Height          =   195
         Left            =   1335
         MouseIcon       =   "about.frx":0C28
         MousePointer    =   99  'Benutzerdefiniert
         TabIndex        =   4
         Top             =   900
         Width           =   1470
      End
      Begin VB.Label Label6 
         Caption         =   "Juergenradel@aol.com"
         ForeColor       =   &H00FF0000&
         Height          =   195
         Left            =   1245
         MouseIcon       =   "about.frx":0F32
         MousePointer    =   99  'Benutzerdefiniert
         TabIndex        =   5
         Top             =   645
         Width           =   1695
      End
      Begin VB.Label Label10 
         BackStyle       =   0  'Transparent
         Height          =   1830
         Left            =   135
         TabIndex        =   11
         Top             =   480
         Width           =   4050
      End
      Begin VB.Label Label2 
         Caption         =   "Jürgen Radel"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   1500
         TabIndex        =   9
         Top             =   420
         Width           =   1335
      End
      Begin VB.Label Label3 
         Caption         =   "Andreas Bondza"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   315
         TabIndex        =   8
         Top             =   1380
         Width           =   1440
      End
      Begin VB.Label Label4 
         Caption         =   "Jürgen Krämer"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2490
         TabIndex        =   7
         Top             =   1380
         Width           =   1275
      End
      Begin VB.Label Label11 
         Caption         =   "Härteprüfung (2002)"
         Height          =   195
         Left            =   2715
         TabIndex        =   6
         Top             =   2640
         Width           =   1440
      End
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   570
      Left            =   1575
      TabIndex        =   10
      Top             =   1275
      Width           =   1380
   End
   Begin VB.Image Image1 
      Height          =   11595
      Left            =   -300
      Picture         =   "about.frx":123C
      Top             =   -390
      Width           =   7605
   End
End
Attribute VB_Name = "about"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) _
As Long
Const SW_SHOWNORMAL = 0
Option Explicit
Private Sub Label5_Click()
Dim rc As Long
  rc = ShellExecute(Me.hwnd, "Open", "http://www.buch-radel.de", "", "", SW_SHOWNORMAL)
End Sub
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  Label5.ForeColor = QBColor(12)
End Sub

Private Sub Label6_Click()
  Dim rc As Long
  rc = ShellExecute(Me.hwnd, "Open", "mailto:juergenradel@aol.com?Subject=Härteprüfer", "", "", SW_SHOWNORMAL)
End Sub

Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  Label6.ForeColor = QBColor(12)
End Sub

Private Sub Label7_Click()
Dim rc As Long
  rc = ShellExecute(Me.hwnd, "Open", "mailto:andreas@bondza.de?Subject=Härteprüfer", "", "", SW_SHOWNORMAL)
End Sub
Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  Label7.ForeColor = QBColor(12)
End Sub

Private Sub Label8_Click()
Dim rc As Long
  rc = ShellExecute(Me.hwnd, "Open", "http://www.wow-design.de", "", "", SW_SHOWNORMAL)
End Sub
Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  Label8.ForeColor = QBColor(12)
End Sub

Private Sub Label9_Click()
Dim rc As Long
  rc = ShellExecute(Me.hwnd, "Open", "mailto:kraemer-juergen@web.de?Subject=Härteprüfer", "", "", SW_SHOWNORMAL)
End Sub
Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  Label9.ForeColor = QBColor(12)
End Sub

Private Sub Label10_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  Label5.ForeColor = QBColor(9)
  Label6.ForeColor = QBColor(9)
  Label7.ForeColor = QBColor(9)
  Label8.ForeColor = QBColor(9)
  Label9.ForeColor = QBColor(9)
End Sub
