VB6 radial Progress-Control

Just another one of these circular Progress-UCs, which recently seem "all the rage" ... ;)

What's different with this one?
- it's really small (only about 80 Lines of Code), so no need to put this into a compiled OCX
- it's entirely GDI-based (just for fun, I've tried to avoid anything "Cairo or GDIPlus")
- it uses a single ChangeSettings-MethodCall ...instead having to set (or implement) a bunch of behaviour-Properties

Here is, what it looks like:


And here's the Zip with the DemoCode:
ucRadialProgress.zip

Have fun,

Olaf

Attached Files

• ucRadialProgress.zip (3.8 KB)