Public Class frmNeuerBeruf Private Sub frmNeuerBeruf_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.TextBox1.Focus() End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Me.DialogResult = Windows.Forms.DialogResult.OK Me.Close() End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Me.DialogResult = Windows.Forms.DialogResult.Cancel Me.Close() End Sub End Class