VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1 (Experimentierform zu Achsen, Show)"
   ClientHeight    =   4215
   ClientLeft      =   2190
   ClientTop       =   1755
   ClientWidth     =   6090
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   PaletteMode     =   1  'ZReihenfolge
   ScaleHeight     =   4215
   ScaleWidth      =   6090
   StartUpPosition =   2  'Bildschirmmitte
   Begin VB.CommandButton Command6 
      Caption         =   "Ende"
      Height          =   630
      Left            =   5115
      TabIndex        =   6
      Top             =   3510
      Width           =   825
   End
   Begin VB.CommandButton Command5 
      Caption         =   "      Form2 (ungebunden)"
      Height          =   630
      Left            =   3900
      TabIndex        =   5
      Top             =   3510
      Width           =   1215
   End
   Begin VB.CommandButton Command4 
      Caption         =   "    Form2 (gebunden)"
      Height          =   630
      Left            =   2685
      TabIndex        =   4
      Top             =   3510
      Width           =   1215
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Koord2"
      Height          =   630
      Left            =   1725
      TabIndex        =   3
      Top             =   3510
      Width           =   960
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Koord1"
      Height          =   630
      Left            =   855
      TabIndex        =   2
      Top             =   3510
      Width           =   870
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Cls"
      Height          =   630
      Left            =   150
      TabIndex        =   1
      Top             =   3510
      Width           =   705
   End
   Begin VB.PictureBox Picture1 
      Height          =   3150
      Left            =   255
      ScaleHeight     =   3090
      ScaleWidth      =   5505
      TabIndex        =   0
      Top             =   255
      Width           =   5565
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Picture1.Cls
End Sub

Private Sub Command2_Click()
  Picture1.Cls
  Picture1.Scale (-10, 4.1)-(110, -0.5)
  Picture1.Line (-5, 0)-(100, 0), QBColor(0)
  Picture1.Line (0, -0.4)-(0, 4), QBColor(0)
End Sub

Private Sub Command3_Click()
  Picture1.Cls
  Picture1.Scale (-55, 45)-(55, -45)
  Picture1.Line (-50, 0)-(50, 0), QBColor(0)
  Picture1.Line (0, -40)-(0, 40), QBColor(0)
End Sub

Private Sub Command4_Click()
   lblText = "          Die Form ist  ""gebunden"" angezeigt!           "
   lblText = lblText & "    Befehlszeile:  Form2.Show 1                                   "
   lblText = lblText & "Diese Zeile bewirkt, daß Sie auf Form1 erst wieder zugreifen "
   lblText = lblText & "können, wenn Sie diese Form unsichtbar (Hide) "
   lblText = lblText & "gemacht oder entladen haben. Hide-Button anklicken! "
   Form2.Label1.Caption = lblText
   Form2.Command1.Caption = "Hide"
   Form2.Hide               'Zum Test herausnehmen mit Rem und alles testen!!!
   Form2.Show 1             'Form2 als gebunden geladen (Stil = 1)
End Sub

Private Sub Command5_Click()
'Hier lernen Sie Möglichkeiten kennen, längeren Text in einem Label anzuzeigen.
'Vergleichen Sie hierzu die Listings in Command4 und Command5 miteinander.
    Form2.Label1.Caption = "Die Form ist nicht gebunden. Sehr oft wird dies" & _
    " bei Hilfeformen, die auf dem Screen präsent bleiben sollen, angewendet." & _
    " Hierbei rückt die  Info-Form nur in den Hintergrund, kann aber durch " & _
    "Anklicken jederzeit wieder nach vorn geholt werden.          Klicken Sie zur Probe " & _
    "auf die Hauptform!                                " & _
    "Befehlszeile:  Form2.Show 0"
    Form2.Command1.Caption = "Schließen"
    Form2.Show 0                'Form2 ungebunden geladen (Stil 0)
End Sub

Private Sub Command6_Click()
    End
End Sub

Private Sub Form_Load()
    Picture1.Scale (-55, 45)-(55, -45)
    Show
  Print "Test: Info-Form starten u. über die PictureBox bewegen, löscht Koordinaten u. Schrift."
    Picture1.Line (-50, 0)-(50, 0), QBColor(0)
    Picture1.Line (0, -40)-(0, 40), QBColor(0)
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Unload Form2
  Unload Me
End Sub
