Declare Function InvertRect Lib "user32" ( _ ByVal hDC As Long, _ ByRef r As RECT) As Long
引数の意味は以下の通り。
hDC | デバイスコンテキストのハンドル。 |
r | 反転する領域。 |
戻り値は、関数の実行結果を表す真偽値である。
Private Sub Command1_Click() Dim r As RECT Dim I As Long Picture1.ScaleMode = vbPixels r.left = 0 r.top = 0 r.right = Picture1.Width r.bottom = Picture1.Height For I = 1 To 6 InvertRect Picture1.hDC, r GdiFlush Sleep 100 Next End Sub