VERSION 5.00
Begin VB.Form frmTexteingabe 
   BorderStyle     =   3  'Fester Dialog
   ClientHeight    =   3195
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows-Standard
   Begin VB.CommandButton cmdCancel 
      Caption         =   "Abbrechen"
      Height          =   435
      Left            =   1290
      TabIndex        =   2
      Top             =   2700
      Width           =   1035
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "OK"
      Height          =   435
      Left            =   2580
      TabIndex        =   1
      Top             =   2700
      Width           =   1035
   End
   Begin VB.TextBox txtText 
      Height          =   2625
      Left            =   60
      MultiLine       =   -1  'True
      TabIndex        =   0
      Top             =   0
      Width           =   4605
   End
End
Attribute VB_Name = "frmTexteingabe"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public mstrText As String
Public mblnGeaendert As Boolean

Private Sub cmdCancel_Click()
    mblnGeaendert = False
    Unload Me
End Sub

Private Sub cmdOK_Click()
    If mblnGeaendert Then
        If MsgBox("Möchten Sie den Text wirklich ändern?", vbYesNo Or vbDefaultButton2, "Bitte bestätigen") = vbYes Then
            mstrText = txtText
            Unload Me
        Else
            cmdCancel.Default = True
        End If
    Else
        Unload Me
    End If
End Sub

Private Sub Form_Activate()
txtText.SetFocus
End Sub


Private Sub Form_Load()
    txtText = mstrText
    cmdCancel.Enabled = False
End Sub

Private Sub txtText_KeyPress(KeyAscii As Integer)
    mblnGeaendert = True
    cmdCancel.Enabled = True
End Sub