Public Class frmSQLEditor
    Public SQLString As String

    Public Sub New(SQLString As String)
        MyBase.New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        Me.SQLString = SQLString
    End Sub

    Private Sub RegexEditor_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txtSQL.Text = SQLString
    End Sub

    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
        SQLString = txtSQL.Text
        DialogResult = DialogResult.OK
        Close()
    End Sub

    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
        Try
            MsgBox("TODO: Test SQL", MsgBoxStyle.Exclamation, Text)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Regex Test")
        End Try
    End Sub
End Class