按键精灵与VB的关联！

  我在按键精灵里写好一些子程序..........  用按键精灵自定义界面 show出了 form窗体..........
    
  然后用该form 的控件WebBrowser 运行游戏界面，并且用菜单编辑器做好了做好菜单命令..........  然后想用菜单命令的单击事件 调用按键里的那些子程序...........  发现是不可以直接调用......  后来想用自定义界面的类模块 定义全局变量  结果还是不能在按键精灵里调用
   
    
  要怎么样才能实现这样的功能呢？
  
  本人属于大菜鸟，VB编程学得非常浅薄，所以对一点点问题就搞得晕头转向了  希望走过路过能驻足片刻，帮忙看下这个东西.......  小弟在此先谢过了！！！！！！！！！！
  ********************以下为源代码区*********************************************
      Private Sub UserControl_Initialize()
             FormSizeCX = Width
             FormSizeCY = Height
      End Sub
     Public Sub OnSave()
          ClearControlData     
     End Sub
     Public Sub OnLoad()     End Sub    Public Sub Label7_Click()
      Form1.Show 1  '调用显示窗体1
                    
    End Sub
      （********该段为VB自定义界面的控件区代码*******************）
*************************************************************************************
       Private Sub Form_Load()
                WebBrowser1.Navigate Text1.Text  '打开网页
                TZ_gj.Enabled = False             ’初始化菜单编辑器（停止挂机）的激活状态
                fb_tz.Enabled = False             ’初始化菜单编辑器（停止副本）的激活状态
       End Sub
    Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)       
         Cancel = True
         WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href
    End Sub   菜单编辑器还有 开始挂机选项 开始副本选项
           （***************以上为个人编写的 form1代码********************）
******************************************************************************************************
Option Explicit
   Public ControlDataCollection As New Collection   Rem 我定义的全局变量（不能跨界使用，无法调用）
   Public runBoleean As Boolean   ‘以下按键精灵自定义界面自带的代码
   Public Sub SaveControlData(ControlName As String, ControlValue As Variant)
      If VarType(ControlValue) = vbBoolean Then
          ControlValue = CInt(ControlValue)
     End If      Dim TempControlData As ControlData
      With TempControlData
         .Name = ControlName
         .Value = ControlValue
     End With     ControlDataCollection.Add TempControlData, ControlName
  End Sub  Public Function LoadControlData(ControlName As String) As String
       LoadControlData = ControlDataCollection(ControlName).Value
  End Function  Public Sub ClearControlData()
     On Error Resume Next
     Set ControlDataCollection = Nothing
     Set ControlDataCollection = New Collection
  End Sub
      (***********以上是按键精灵VB自定义界面自带的代码********************)
*********************************************************************************
   （**************执行代码都写在按键精灵里面了******************）
  
  比如： 单击菜单选项的《开始挂机》
  然后在《开始挂机》的单价事件里面 call 按键精灵的挂机子程序
  发现无法直接实现。
  
  开始位置：自定义界面  show form1
  事件：开始挂机的单击事件
  接收位置：按键精灵代码区
  调用：按键精灵挂机子程序  call  开始挂机  执行位置：游戏窗口form1