Public Class frmApplAbgleichCheckMessage Public muttext As String = "" Public addtext As String = "" Public deltext As String = "" Public dtm As New DataTable Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click Me.DialogResult = Windows.Forms.DialogResult.OK Me.Close() End Sub Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click Me.DialogResult = Windows.Forms.DialogResult.Cancel End Sub Private Sub btnDetails_Click(sender As Object, e As EventArgs) Handles btnDetails.Click Dim ff As New frmApplAbgleichDetails ff.dtm = dtm ff.ShowDialog() End Sub Private Sub frmApplAbgleichCheckMessage_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub End Class