Public Class Form2 Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim f As Form1 f = Me.Owner Button1.Text = "終了します。" '追加 End Sub '追加 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Form1.Close() Me.Close() End Sub End Class