Private Sub DatenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e _
  As System.EventArgs) Handles DatenToolStripMenuItem.Click
        'frmDaten aufrufen und den MDIParent auf frmMain setzen
        Dim frmDaten As frmDaten
        If frmDaten Is Nothing Then frmDaten = New frmDaten
        frmDaten.MdiParent = Me
        frmDaten.Show()
    End Sub

    Private Sub btnBerechnen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnBerechnen.Click
        'frmBerechnen als Dialog aufrufen, dieser gibt dann nach einem Klick 
        ' auf OK DialogResultOK zurück und wir wissen das der Benutzer auf OK 
        ' geklickt hat und wir den Wert auslesen können.
        Dim frmBerechnen As frmBerechnen
        If frmBerechnen Is Nothing Then frmBerechnen = New frmBerechnen
        If frmBerechnen.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtBerechnet.Text = frmBerechnen.Ergebnis.ToString
        End If
    End Sub

    Private mErgebnis As Double
 
    'Eigenschaft, in dem der berechnete Wert nach dem drücken auf OK 
    ' gespeichert wird.
    Public ReadOnly Property Ergebnis() As Double
        Get
            Return mErgebnis
        End Get
    End Property
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
        Try
            If TextBox1.Text = "" Or TextBox2.Text = "" Then
            Else
                TextBox3.Text = CDbl(TextBox1.Text) * CDbl(TextBox2.Text)
            End If
        Catch
        End Try
    End Sub
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox2.TextChanged
        Try
            If TextBox1.Text = "" Or TextBox2.Text = "" Then
            Else
                TextBox3.Text = CDbl(TextBox1.Text) * CDbl(TextBox2.Text)
            End If
        Catch
        End Try
    End Sub
 
    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnCancel.Click
        'nichts in das Feld Ergebnis eintragen, da ja Wert nicht übernommen 
        ' werden soll
        'Cancel an frmDaten zurückgeben.
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub
 
    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnOK.Click
        'Benutzer hat OK geklickt also Wert in Property eintragen und OK 
        ' zurückgeben an frmDaten.
        mErgebnis = CDbl(TextBox3.Text)
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub