ActiveX オートメーションの例（Windows）
Private Sub Form_Load()

'----------------------------------------------
' Visual Basic で FileMaker  Pro に
' アクセスするサンプルコードです。
'
' Visual Basic の [プロジェクト] メニューの [参照設定...]
' で「FileMaker Pro 7.0 Type Library」が選択され、使用可能の状態になっている必要があります。
'----------------------------------------------
 
'----------------------------------------------
' オブジェクトの宣言および FileMaker の起動
'----------------------------------------------
 
' オブジェクト変数の宣言
Dim FMApp As FMPro70Lib.Application
Dim FMDocs As FMPro70Lib.Documents
Dim FMActiveDoc As FMPro70Lib.Document
' FileMaker の起動
Set FMApp = CreateObject("FMPRO.Application")
 
' ドキュメントのオブジェクトを設定します。
Set FMDocs = FMApp.Documents
 
' FileMaker を表示します（自動的に FileMaker を起動した場合は、
' デフォルトで非表示になります）。
FMApp.Visible = True
 
'----------------------------------------------
' ドキュメントを開くクエリーを実行します。
'----------------------------------------------
 
'開いているドキュメントのカウントを確認します
If FMDocs.Count = 0 Then
Debug.Print "開いているドキュメントはありません"
Else
Debug.Print ¢開いているファイルのカウントは次のとおりです≤; FMDocs.Count
End If
 
'--------------------------------------------------
' FileMaker のデータベースと実行スクリプトを開きます。
'--------------------------------------------------
 
' 参考:以下を実行するには「サンプルスクリプト」という
' スクリプトを含む FileMaker ファイル「c:￥testing.fmp12」
' が必要です
Dim myOpenFile As Object ' 参考:また、次のように宣言することもできます。
FMPro70Lib.Document
 
Set myOpenFile = FMDocs.Open("c:\testing.fmp12", "","")
myOpenFile.DoFMScript ("サンプルスクリプト")
 
'--------------------------------------------------
' アクティブドキュメントにクエリーを実行します。
'--------------------------------------------------
 
Set FMActiveDoc = FMDocs.Active
 
' アクティブドキュメントの名前を表示します。
Debug.Print "アクティブファイルは　"; FMActiveDoc.FullName
 
'--------------------------------------------------
' ドキュメントのエミュレート、ドキュメントを閉じる
'--------------------------------------------------
 
Dim TempToc As Object
 
If FMDocs.Count > 0 Then
 
For Each TempDoc In FMDocs
Debug.Print "次のドキュメントを閉じます:"; TempDoc.FullName
TempDoc.Close
Set TempDoc = Nothing
Next
End If
'----------------------------------------------
' クリーンアップおよび終了
'----------------------------------------------
Set FMDocs = Nothing
Set FMActiveDoc = Nothing
Set myOpenFile = Nothing
 
' FileMaker を終了して変数を開放します。
（メモ:終了後にアプリケーションの変数を常に Nothing に設定します。
FMApp.Quit
Set FMApp = Nothing
End Sub
関連項目 
FileMaker Pro ActiveX オートメーションの使用 （Windows）
ActiveX オートメーションのオブジェクト、メソッド、およびプロパティ（Windows）