まず、新しいプロジェクトで、ＡｃｔｉｖｅＸ．ＤＬＬを選びます。
すると、プロジェクト内に、１つクラスが作成されます。
プロジェクトとクラスのオブジェクト名を変更します。
（この名前が、外部から参照されるようになるため、非常に重要です）
では、ここからサンプル
| プロジェクトをTESTに変更します。 クラスをTESTCにします。 |
 こんな感じになります。 つぎに、TESTSにメソッドを作成します。 |
' メソッド
Public Sub Run()
Debug.Print "メソッド実行"
End Sub
|
| これで完成です。 |
ここから、サンプルのＡｖｔｉｖｅＸＤＬＬを動かすサンプル
| プロジェクトの追加を行って下さい。（この方法が一番簡単だと思います） プロジェクトの追加で、標準EXEを選択します。 |
 こんな感じになります。 つぎに、フォームのコードに、プログラムを書きます。 |
Dim S As Object
Private Sub Form_Load()
Set S = CreateObject("TEST.TESTS")
S.Run
End Sub
|
| これで完成、実行してみて下さい。
？？フォームが表示されない？？ Ｐｒｏｊｅｃｔ１をスタートアップに設定して下さい。 |
 |
| どうでしょうか？ |