using System;

[assembly: CLSCompliant(true)] // アセンブリがCLSに準拠するようにする (コンパイル時にCLS準拠のチェックが行われる)

namespace SampleLibrary {
  public class Account {
    private uint id;

    public void SetID(uint newID)
    {
      id = newID;
    }

    public override string ToString()
    {
      return string.Format("ID={0}", id);
    }
  }
}

D:\clscompliant>csc /nologo /target:library lib.cs
lib.cs(11,23): warning CS3001: 引数の型 'uint' は CLS に準拠していません。

Imports System

<Assembly: CLSCompliant(True)> ' アセンブリがCLSに準拠するようにする (コンパイル時にCLS準拠のチェックが行われる)

Namespace SampleLibrary
  Public Class Account
    Private id As UInteger

    Public Sub SetID(ByVal newID As UInteger)
      id = newID
    End Sub

    Public Overrides Function ToString() As String
      Return String.Format("ID={0}", id)
    End Function
  End Class
End Namespace

D:\clscompliant>vbc /nologo /target:library lib.vb
D:\clscompliant\lib.vb(9) : warning BC40028: パラメータ 'newID' の型は CLS に準拠していません。

    Public Sub SetID(ByVal newID As UInteger)
                           ~~~~~

using System;

[assembly: CLSCompliant(true)] // アセンブリがCLSに準拠するようにする

namespace SampleLibrary {
  public class Account {
    private uint id;

    [CLSCompliant(false)] // このメソッドはCLS非準拠とする
    public void SetID(uint newID)
    {
      id = newID;
    }

    // 上記の代替となるCLS準拠のメソッド
    public void SetID(long newID)
    {
      if (newID < 0) throw new ArgumentOutOfRangeException("newID", "負の値を指定することは出来ません。");

      id = (uint)newID;
    }

    public override string ToString()
    {
      return string.Format("ID={0}", id);
    }
  }
}

Imports System

<Assembly: CLSCompliant(True)> ' アセンブリがCLSに準拠するようにする

Namespace SampleLibrary
  Public Class Account
    Private id As UInteger

    <CLSCompliant(False)> _ ' このメソッドはCLS非準拠とする
    Public Sub SetID(ByVal newID As UInteger)
      id = newID
    End Sub

    ' 上記の代替となるCLS準拠のメソッド
    Public Sub SetID(ByVal newID As Long)
      If newID < 0 Then Throw New ArgumentOutOfRangeException("newID", "負の値を指定することは出来ません。")

      id = CUInt(newID)
    End Sub

    Public Overrides Function ToString() As String
      Return String.Format("ID={0}", id)
    End Function
  End Class
End Namespace

using System;

[assembly: CLSCompliant(true)]

namespace SampleLibrary {
  // int型の値をラップする構造体
  public struct IntValue {
    private int val;

    public IntValue(int val)
    {
      this.val = val;
    }

    // 加算演算子
    public static IntValue operator+(IntValue x, IntValue y)
    {
      return new IntValue(x.val + y.val);
    }

    // 明示的な型変換演算子
    public static explicit operator int(IntValue x)
    {
      return x.val;
    }

    public override string ToString()
    {
      return val.ToString();
    }
  }
}

using System;
using SampleLibrary;

class Sample {
  static void Main()
  {
    IntValue x = new IntValue(2);
    IntValue y = new IntValue(3);

    IntValue z = IntValue.op_Addition(x, y);

    Console.WriteLine("x + y: {0}", z);

    int i = IntValue.op_Explicit(x);

    Console.WriteLine("(int)x: {0}", i);
  }
}

D:\clscompliant>csc /nologo /target:library lib.cs

D:\clscompliant>csc /nologo /r:lib.dll exe.cs
exe.cs(11,27): error CS0571: 'SampleLibrary.IntValue.operator +(SampleLibrary.IntValue, SampleLibrary.IntValue)':
        演算子またはアクセサを明示的に呼び出すことはできません。
exe.cs(15,22): error CS0571: 'SampleLibrary.IntValue.explicit operator int(SampleLibrary.IntValue)':
        演算子またはアクセサを明示的に呼び出すことはできません。

Imports System

<Assembly: CLSCompliant(True)>

Namespace SampleLibrary
  ' Integer型の値をラップする構造体
  Public Structure IntValue
    Private val As Integer

    Public Sub New(ByVal val As Integer)
      MyClass.val = val
    End Sub

    ' 加算演算子
    Public Shared Operator +(ByVal x As IntValue, ByVal y As IntValue) As IntValue
      Return New IntValue(x.val + y.val)
    End Operator

    ' 明示的な型変換演算子
    Public Shared Narrowing Operator CType(ByVal x As IntValue) As Integer
      Return x.val
    End Operator

    Public Overrides Function ToString() As String
      Return val.ToString()
    End Function
  End Structure
End Namespace

Imports System
Imports SampleLibrary

Class Sample
  Shared Sub Main()
    Dim x As New IntValue(2)
    Dim y As New IntValue(3)

    Dim z As IntValue = IntValue.op_Addition(x, y)

    Console.WriteLine("x + y: {0}", z)

    Dim i As Integer = IntValue.op_Explicit(x)

    Console.WriteLine("CInt(x): {0}", i)
  End Sub
End Class

D:\clscompliant>vbc /nologo /target:library lib.vb

D:\clscompliant>vbc /nologo /r:lib.dll exe.vb

D:\clscompliant>exe.exe
x + y: 5
CInt(x): 2