Change Back and Fore Color of Progress Bar

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Intermediate

Author: Mike G

Version Compatibility: Visual Basic 6, Visual Basic 5

More information:

Did you ever whant to change back & fore color of Progress Bar with out using other activeX controls? Well here is how.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Option Explicit ' ------------------------------------------------------------ ' Copyright 2001 Mike G --> IvbNET.COM ' All Rights Reserved, http://www.ivbnet.com ' EMAIL : webmaster@ivbnet.com ' ------------------------------------------------------------ ' You are free to use this code within your own applications, ' but you are forbidden from selling or distributing this ' source code without prior written consent. ' ------------------------------------------------------------ Const WM_USER = &H400 Const CCM_FIRST = &H2000& Const CCM_SETBKCOLOR = (CCM_FIRST + 1) Const PBM_SETBKCOLOR = CCM_SETBKCOLOR Const PBM_SETBARCOLOR = (WM_USER + 9) Public Declare Function SendMessage _ Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long

Code: