horizontal scroll bar

[sdel_nevo]

Hi Everyone

I have a form that is to opens full screen and is set in it's properties to not have a vertical scroll bar, this is not a problem for office users were the pc has a monitor set to 1920 x 1080 but when users with smaller screen open the form they can't see all the information.

I can use this code to capture the screen size

Dim x As Long
Dim y As Long
x = GetSystemMetrics(SM_CXSCREEN)
y = GetSystemMetrics(SM_CYSCREEN)


If x < 1280 And y < 1080 Then

MsgBox "small"
End If

is their anyway in this code that I could make the horizontal scrollbar visible?

I have been searching the web but can't find a way to do this

Any help would be great

[ranman256]

Just set SCROLLBARS = BOTH,
then when the screen is small, they show.

but if you need the code:
Me.ScrollBars = 3

[sdel_nevo]

Hi ranman256

sorry for the late reply I have been in meetings most of the day
that's fantastic many many thanks

steve