I have small procedure,
Private Sub picData_Resize()
Dim sngHeight As Single
sngHeight = Me.txtName(0).Height * Me.txtName.Count + 100
scbVert.Visible = sngHeight > ScaleHeight
.... some code
End Sub
scbVert is flat scroll bar. It's never getting Visible even when sngHeight > ScaleHeight. What's wromg.
Thanks.
Private Sub picData_Resize()
Dim sngHeight As Single
sngHeight = Me.txtName(0).Height * Me.txtName.Count + 100
scbVert.Visible = sngHeight > ScaleHeight
.... some code
End Sub
scbVert is flat scroll bar. It's never getting Visible even when sngHeight > ScaleHeight. What's wromg.
Thanks.