manavo11
Mar 12th, 2003, 03:26 PM
Add a command button (Command1) to your form and add the following 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
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