○VB6で作成したDLLをVB.netにて読み出し

■VB6で作成したDLL
ActiveX DLLを選択、以下を追加

Public Function str1(str As String) As String
    str1 = str + "稲葉"
End Function

Public Function str2(ByVal a As Integer, ByVal b As Integer) As String
    str2 = a & " : " & b
End Function

■VB.netでの読み出し

�@参照設定にてプロジェクトに参加させます。
�ASolution Explorerを見てDLLの名前を確認します。
�BDLLのインスタンスを作成して読み出します。

        Dim a As Project1.Class1
        a = New Project1.Class1
        Debug.WriteLine(a.str1("稲葉"))
        Dim b As Short = 10
        Dim c As Short = 20
        Debug.WriteLine(a.str2(b, c))

---------実行結果---------

稲葉稲葉
10 : 20