Put this code in another module in your project... it is needed by the previous code to determine if the system font size is set to small or large..because that can also extend your forms...

'*----------------------------------------------------------*
'* Purpose : Returns true if the system is using small *
'* : fonts, false if using large fonts *
'*----------------------------------------------------------*
'* Parameters : None *
'*----------------------------------------------------------*
'* Return : TRUE if the system is using small fonts, *
'* : FALSE if using large fonts *
'*----------------------------------------------------------*
'* Comments : Source: the MS KB article Q152136. *
'*----------------------------------------------------------*
Public Function SmallFonts() As Boolean
Dim hdc As Long
Dim hWnd As Long
Dim PrevMapMode As Long
Dim tm As TEXTMETRIC

' Set the default return value to small fonts
SmallFonts = True

' Get the handle of the desktop window
hWnd = GetDesktopWindow()

' Get the device context for the desktop
hdc = GetWindowDC(hWnd)
If hdc Then
' Set the mapping mode to pixels
PrevMapMode = SetMapMode(hdc, MM_TEXT)

' Get the size of the system font
GetTextMetrics hdc, tm

' Set the mapping mode back to what it was
PrevMapMode = SetMapMode(hdc, PrevMapMode)

' Release the device context
ReleaseDC hWnd, hdc

' If the system font is more than 16 pixels high,
' then large fonts are being used
If tm.tmHeight > 16 Then SmallFonts = False
End If

End Function