'使用控件:Microsoft Agent Control 2.0
Private Sub VbAcs_Click() '菜单 VbAcs单击事件
Dim Genie As IagentCtlCharacter '定义角色变量
Dim DataPath As String '定义角色文件变量
DataPath = App.Path + "/abc.acs"
If Not VbFile_Exist(DataPath) Then
Exit Sub
End If