Anyone know why this won't work

K

kirkm

--
Private Sub Frame1_Click()

With Me.Frame1

Sel = Sel + 1
If Sel = 5 Then Sel = 0
Me.Frame1.PictureAlignment = Sel
..ScrollBars = fmScrollBarsVertical
..ScrollHeight = .InsideHeight * 2.5
..ScrollWidth = .InsideWidth * 9
End With

Me.Repaint
Me.Label2.Caption = Me.Frame1.PictureAlignment & " " & Sel

End Sub
--
Only when Sel = 0 does the picture show, UNLESS I remove
the scrollbar stuff. I've spent all day trying different methods
and nothing works !

Can you only have a scroll bar if PictureAlignment = 0 ?

I've just though of that - is that why ? ?? !!!

Thanks - Kirk
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Anyone know why this doesn't work ? 5
MultiPage Scroll Bar 3
Multi Page Scroll Bar 3
Testing whether a page in MultiPage is active 1
"Variable not defined" error for form that does not initially exist... 1
Why this code won't work 5
Does anyone know why this won't work? 5
Worksheet_Change does not work 3

Top