16 lines
563 B
Plaintext
16 lines
563 B
Plaintext
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 |