Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '全ての条件が揃わなければ閉じられない If 条件a AndAlso 条件B AndAlso 条件C Then Me.Close() End If End Sub