'Dans la section générale de la feuille
Private Declare Function GetClientRect Lib "user32" Alias "GetClientRect" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Sub Command1_Click()
'VbAndJava 1999/2000
'Guerrault Yonni
'E-Mail : Yonni4@iFrance.com

Dim Rectangle as Rect
GetClientRect Me.hwnd, Rectangle
MsgBox "Ma Width is"+str$(Rectangle.Right - Rectangle.Left)+" Pixels."+Chr$(13)+"Ma Height is"+str$(Rectangle.Bottom - Rectangle.Top)+" Pixels."
End sub