How can i paint a usercontrol(Plz read the full details inside to help me)

[toughcoder]

Hi,
Now I have a procedure ApplyEffect which draws some stuff on a usercontrol. I have placed a call to this procedure inside the Usercontrol_Paint event, when i size the usercontrol to increase it, the function works gr8, but when i reduces the size, the procedure is not called coz the usercontrol has not to be painted when we reduce itz size(that i know). Now where should i place a call to the procedure so that it gets called even when i reduce the size of the usercontrol. I hope u guyz have clearly understood my porblem. (Rick Bull, i expect a reply from u)

[jim mcnamara]

Private Declare Function SendMessage Lib "user32"  _
Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _
Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Dim retval as long
Private Const WM_PAINT = &HF

retval=SendMessage(UserControl1.hWnd, WM_PAINT, 0&,0&,0&)

[toughcoder]

thanx jim