Dim UsrCon As New Object 'オブジェクト変数の宣言 'ロード Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load UsrCon = コン1 'ロードしたときにオブジェクト変数に「コン1」を代入 End Sub ’ボタンをクリック UsrCon.Visible = False '現在表示しているコントロール(コン1)を非表示にする