Nullを含んでいるか判定するメソッド - いぬもあるけばぼうもあるく

<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets
    xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>ContainsNull</Title>
      <Description>Nullを含んでいるか判定するメソッド</Description>
      <Shortcut>null</Shortcut>
    </Header>
    <Snippet>

      <Code Language="VB" Kind="method decl "><![CDATA[Private Function ContainsNull(ByVal obj1 As Object, ByVal ParamArray others() As Object) As Boolean
        If obj1 Is Nothing Then Return True
        For Each obj As Object In others
            If obj Is Nothing Then Return True
        Next
        Return False
    End Function]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>