Shoutbox

code:

---

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

---

code:

---

var RECT = Interop.Allocate(16); //long = 4 so size = 4 * 4
RECT.WriteDWORD(0, 0); //left
RECT.WriteDWORD(4, 0); //Top
RECT.WriteDWORD(8, 0); //Right
RECT.WriteDWORD(12, 0); //Bottom

---

code:

---

var RECT = Interop.Allocate(16); //long = 4 so size = 4 * 4
//pass to some api function where it changes it

var left = RECT.ReadDWORD(0); //left
var top = RECT.ReadDWORD(4); //Top
var right = RECT.ReadDWORD(8); //Right
var bottom = RECT.ReadDWORD(12); //Bottom

---

code:

---

var RECT = Interop.Allocate(16);
RECT.WriteDWORD(0, 0);
RECT.WriteDWORD(4, 0); 
RECT.WriteDWORD(8, 0); 
RECT.WriteDWORD(12, 0);

Interop.Call("user32.dll", "RedrawWindow", ChatWnd.Handle, RECT, 1, 1);

---

code:

---

Interop.Call('user32', 'RedrawWindow', ChatWnd.Handle, 0, 0, 0x001 /* RDW_INVALIDATE */);

---

code:

---

Interop.Call('user32', 'SendMessageW', ChatWnd.Handle, 0x000F /* WM_PAINT */, 0, 0);

---

code:

---

Interop.Call('user32', 'InvalidateRect', WindowHandle, 0, False);

---

code:

---

Private Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long, lprcUpdate As RECT, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Private Sub Command1_Click()
Print "test.."
Dim theRECT As RECT
theRECT.Left = 0
theRECT.Top = 0
theRECT.Right = 0
theRECT.Bottom = 0
Call RedrawWindow(Me.hwnd, theRECT, 1, 1)
End Sub

---

code:

---

    Var Wnd = MsgPlus.CreateWnd(... ) (im assuming you've created the window and stuff? if you have Var Wnd will hold the Handle (Me.hwnd in VB))
    var theRECT = Interop.Allocate(16); //long = 4 so size = 4 * 4
    theRECT .WriteDWORD(0, 0); //left
    theRECT .WriteDWORD(4, 0); //Top
    theRECT .WriteDWORD(8, 0); //Right
    theRECT .WriteDWORD(12, 0); //Bottom
   Interop.Call('user32', 'RedrawWindow', Wnd, theRECT, 1, 1);

---