One question :)

[trautmen]

for transparent txtChat richtextbox use :in to modgamelogic copy:
```
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_TRANSPARENT = &H20&
```
and in to form_load copy:
```
Dim result As Long
result = SetWindowLong(txtChat.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)
```
I not created this code!!
btw: this is one problem..txtChat not see because is under map..help enyone?