EALA FREYA FRESENA

    Private Sub FormularClosing(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
 
        'Falls der User das Formular schließt ....
        If e.CloseReason = CloseReason.UserClosing Then
            Me.Hide() 'Verstecken
            e.Cancel = True 'Vorgang des Schließens abbrechen
        End If
    End Sub

    Private Sub txtPing_TextChanged(sender As System.Object, e As _
      System.EventArgs) Handles txtPing.TextChanged
        My.Settings.ToPing = txtPing.Text
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        txtPing.Text = My.Settings.ToPing
    End Sub

EALA FREYA FRESENA

'Startformular:
Public Class frmStart
 
    Dim myDialog As New frmDialog
 
    Dim WithEvents btnDialog As New Button With {.Parent = Me, .Text = "Dialog"}
 
    Private Sub btnDialog_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles btnDialog.Click
 
        myDialog.ShowDialog()
    End Sub
End Class
 
'Dialogformular:
Public Class frmDialog
 
    Dim tbo As New TextBox With {.Parent = Me}
 
    Private Sub frmDialog_FormClosing(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles _
        Me.FormClosing
 
        If e.CloseReason = CloseReason.UserClosing Then
            Me.Hide()
            e.Cancel = True
        End If
    End Sub 
End Class

EALA FREYA FRESENA