Add a command button (Command1) to your form and add the following code :
VB Code:
Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long Private Sub Command1_Click() InvalidateRect 0&, 0&, False End Sub




Reply With Quote