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