VB6. Лимиты на статические и нестатические переменные

Option Explicit
 
Public Declare Sub FillMsgFromParams Lib "gsup.dll" (struct As MESSAGE, ByVal msgtype As Long, ByVal nver As Single, ByVal Lang As Long, ByVal name As String, ByVal Hash As Long, ByVal gameN As Long, ByVal Y As Long, ByVal move As String, ByVal map As String, ByVal text As String)
Public Declare Sub FillMsgFromString Lib "gsup.dll" (struct As MESSAGE, ByVal buff As String)
Public Declare Sub FillStringFromMsg Lib "gsup.dll" (ByVal buff As String, struct As MESSAGE)
 
Public Declare Sub EnterCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION)
Public Declare Sub LeaveCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION)
Public Declare Sub InitializeCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION)
 
Public Type CRITICAL_SECTION
     dummy As Long
     ' BYTE8 move[4 Kb];
     map As String * 16384 '/* 09 */ UBYTE8 map[16 Kb];
     text As String * 8192 '/* 10 */ BYTE8 text[8 Kb];
     tmp1 As String * 16 '/* 11 */ sockaddr_in addr;
     time As Long 'UINT32 time;
     tmp3 As Long 'MESSAGE *prev;
     tmp4 As Long 'MESSAGE *next;
     End Type
 
Public Sub SendMsg(ByVal msgtype As Long, ByVal nver As Single, ByVal Lang As Long, ByVal name As String, ByVal Hash As Long, ByVal gameN As Long, ByVal Y As Long, ByVal move As String, ByVal map As String, ByVal text As String)
On Error Resume Next
Dim m(1) As MESSAGE
Dim b As String
b = String(64000, 0)
If (name = "") Then
     name = ES
End If
m(1).time = GetTickCount()
Call FillStringFromMsg(b, m(1)) '(#1#)
Call EnterCriticalSection(CS)
moutlist.Add b
Call LeaveCriticalSection(CS)
End Sub

Declare Function CpyStr2Udt Lib "Kernel32" Alias "lstrcpyn" (lpString1 As Any, ByVal lpString2 As String, ByVal cChars As Integer) As Integer
 
Declare Function CpyUdt2Udt Lib "Kernel32" Alias "lstrcpyn" (lpString1 As Any, lpString2 As Any, ByVal cChars As Integer) As Integer