Binary読み込み用　ActiveX DLL の作成(このプログラムはすべての条件で完全動作することを保証してません。)

Visual Basic 5.0 Pro版以上で ActiveX DLL の新しいプロジェクトを作成します。

プロジェクト メニューの Project1 のプロパティを選択し、プロジェクト名を "GeroProject" に変更し、マルチスレッドをチェックし、OK ボタンをクリックします。

プロパティペインで Class1 のオブジェクト名を "GeroClass" に変更します。

以下のコードを GeroyClass （コード） の (general) (declarations) セクションに追加します。

Function BinaryRead(fNAME As String)
    Dim bDATA() As Byte 'Binaryデーター格納用
    Dim lDATA As Long   'Binaryデーターの長さ
    
    Open fNAME For Binary Access Read As #1
        lDATA = LOF(1)
        If lDATA = 0 Then
            BinaryRead = False
            Close #1
            Exit Function
        End If
        ReDim bDATA(lDATA - 1)
        Get #1, , bDATA
    Close #1
    BinaryRead = bDATA
End Function

ファイルメニューの GeroProject.DLL の作成を選択し、ファイルを作成します。