这个是什么情况？模块都无法调用，无论是全局的过程还是变量只要在模块都调用不了

Private Sub TimerInter_Tick(sender As System.Object, e As System.EventArgs) Handles TimerInter.Tick

        ModuleMain.Main()

'未处理 System.TypeInitializationException

  'HResult=-2146233036

  'Message=“象棋.ModuleMain”的类型初始值设定项引发异常。

 ' Source=象棋

 ' TypeName=象棋.ModuleMain

'  StackTrace:

   '    在 象棋.ModuleMain.Main()

   '    在 象棋.SplashScreen.TimerInter_Tick(Object sender, EventArgs e) 位置 C:\Users\LENOVO\Documents\Visual Studio 201'0\Projects\象棋\象棋\SplashScreen.vb:行号 27

     '  在 System.Windows.Forms.Timer.OnTick(EventArgs e)

      ' 在 System.Windows.Forms.Timer.TimerNativeWindow.WndProc(Message& m)

       '在 System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

      ' 在 System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)

      ' 在 System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoCompon'entManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)

     '  在 System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)

      ' 在 System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)

       '在 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()

       '在 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()

       '在 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)

       '在 象棋.My.MyApplication.Main(String[] Args) 位置 17d14f5c-a337-4978-8281-53493378c1071.vb:行号 81

       '在 System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)

       '在 System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)

       '在 Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()

       '在 System.Threading.ThreadHelper.ThreadStart_Context(Object state)

      '' 在 System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)

       '在 System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)

       '在 System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)

       '在 System.Threading.ThreadHelper.ThreadStart()

  'InnerException: System.ArgumentException

       'HResult=-2147024809

       'Message=“0”的值对于“emSize”无效。“emSize”应该大于 0 且小于或等于 System.Single.MaxValue。

'参数名: emSize

      ' ParamName=emSize

      ' Source=System.Drawing

     '  StackTrace:

       '     在 System.Drawing.Font.Initialize(FontFamily family, Single emSize, FontStyle style, GraphicsUnit unit, Byte gdiCharSe't, Boolean gdiVerticalFont)

          '  在 System.Drawing.Font.Initialize(String familyName, Single emSize, FontStyle style, GraphicsUnit unit, Byte gdiCharS'et, Boolean gdiVerticalFont)

           ' 在 System.Drawing.Font..ctor(String familyName, Single emSize)

           ' 在 象棋.ModuleMain..cctor() 位置 C:\Users\LENOVO\Documents\Visual Studio 2010\Projects\象棋\象棋\ModuleMain.vb:行号 7

     '  InnerException: 



        Me.Close()

    End Sub