Public Const WM_PAINT As Long = &HF
 
Public Declare Function SendMessage Lib "user32" Alias _
  "SendMessageA" ( ByVal hWnd As Long, ByVal wMsg As Long, _
  ByVal wParam As Long, lParam As Any) As Long

SendMessage Form.hWnd, WM_PAINT, Form.hDC, 0&