I declare the Rectangle API function:
I use it in a Sub:
But nothing happens
Code:
Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Code:
Private Sub Command1_Click()
Rectangle Me.hwnd, 0, 0, 50, 50
End Sub