C# と VB.NET の質問掲示板

↓こんなんでいっすか?

Public Class Form1

    ' Form1にはdasとkesの二つのボタンを置いてます

    Private secondForm As Form2 ' メンバ変数として用意

    Private Sub Dasel() ' 出せるようにする
        das.Enabled = True
        kes.Enabled = False
    End Sub

    Private Sub Kesel() ' 消せるようにする
        das.Enabled = False
        kes.Enabled = True
    End Sub

    ' Form1ロード時
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        secondForm = New Form2() ' Form2を用意して
        Dasel() ' 出せるようにする
    End Sub

    ' 出すボタンが押された
    Private Sub das_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles das.Click
        secondForm.Show() ' 出して
        Kesel() ' 消せるようにする
    End Sub

    ' 消すボタンが押された
    Private Sub kes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kes.Click
        secondForm.Hide() ' 消して
        Dasel() ' 出せるようにする
    End Sub
End Class

Private f As frm2 ' インスタンス・メンバに昇格すればいいのよ♪

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  'Form2クラスのインスタンスを作成する
  f = New frm2()
  'Form2を表示する
  'モードレスフォームとして表示する
  f.Show()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  ' フォームを閉じる
  f.Close()
End Sub