I made a ProgressBar Control, and I want to automaticly resize it to the width the user specified, I used Karl's code:

Code:
height = UserControl.ScaleHeight
width = UserControl.ScaleWidth
to resize... it DOES rezise, but to the Form's Height & width, not to the controls...

this is the code to paint the ProgressBar (api calls not included)
Code:
Public Sub CreateProgress(Vertical As Boolean, Handle As Long)
'// Create the progress bar
lnghWnd = CreateWindowEX(0, PROGRESS_CLASS, "", WS_VISIBLE _
Or WS_CHILD Or lngType, 0, 0, 0, 0, Handle, _
0&, App.hInstance, 0&)
'// Set the bar's parent
Call SetParent(lnghWnd, Handle)
'// Create another window
lnghWnd = CreateWindowEX(0, PROGRESS_CLASS, "", WS_VISIBLE _
 Or WS_CHILD Or lngType, 0, 0, 0, 0, Handle, _
0&, App.hInstance, 0&)
Where handle is the form's .hwnd
I use this code to create the progbar from a form:
CreatProgress False, Me.Hwnd

Anyone know's why it doesn't work???

Thanks in Advance!

Jop

[Edited by Jop on 05-23-2000 at 09:18 AM]