'呼び出し側の処理 Using f As New Form2(引数1, 引数2) If f.ShowDialog() = DialogResult.Cancel Then Return End If Me.Label1.Text = f.ResultText '独自プロパティで結果を返す End Using
Dim selectedFiles As String() = Form2.ShowFilesDialog(targetFolder) '自作の Shared メソッド If selectedFiles.Length = 0 Then Return End If