Resolved:how to make progress bar in vb6?

hmm method i hope you asking for something like this let me know

Hi all … 🙂

no problem man have fun with it ….

this is the Module i pute it there any way copy and paste

‘this loader was from a program i just took tha loader out for you
Declare Sub ReleaseCapture Lib “user32” ()
Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Public Const WM_MOUSEISMOVING = &H200 ‘ Mouse is moving
Public Const WM_LBUTTONDOWN = &H201 ‘Button down
Public Const WM_LBUTTONUP = &H202 ‘Button up
Public Const WM_LBUTTONDBLCLK = &H203 ‘Double-click
Public Const WM_RBUTTONDOWN = &H204 ‘Button down
Public Const WM_RBUTTONUP = &H205 ‘Button up
Public Const WM_RBUTTONDBLCLK = &H206 ‘Double-click
Public Const WM_SETHOTKEY = &H32
Declare Function ReleaseDC Lib “user32” (ByVal hwnd As Long, ByVal hdc As Long) As Long
Declare Function GetDC Lib “user32” (ByVal hwnd As Long) As Long
Declare Function GetDesktopWindow Lib “user32” () As Long
Declare Function BitBlt Lib “GDI32” (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020
Public Declare Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Global iRecursion As Boolean
Global tColor As Long

Public Sub pause(Seconds)
Dim Zeit As Long
Zeit = Timer
Do
DoEvents
Loop Until Zeit + Seconds <= Timer
End Sub

Public Sub MakeTranslucent(Who As Form, Optional tColor As Long) ‘Was (Who as Object) before…

On Local Error Resume Next

Dim HW As Long
Dim HA As Long
Dim iLeft As Integer
Dim iTop As Integer
Dim iWidth As Integer
Dim iHeight As Integer

If IsMissing(tColor) Or tColor = 0 Then
tColor = RGB(0, 0, 200)
End If

Who.AutoRedraw = True
Who.Hide

DoEvents

HW = GetDesktopWindow()
HA = GetDC(HW)

‘Get the Left, Top, Width and Height of the Form…
iLeft = Who.Left / Screen.TwipsPerPixelX
iTop = Who.Top / Screen.TwipsPerPixelY ‘+ 25 If using a form with a titlebar (border)…
iWidth = Who.ScaleWidth
iHeight = Who.ScaleHeight

‘Now, Transfer the contents of the Desktop Window to the Form…
Call BitBlt(Who.hdc, 0, 0, iWidth, iHeight, HA, iLeft, iTop, SRCCOPY) ‘iLeft + 4 If using a form with a titlebar (border)…

‘Show…
Who.Picture = Who.Image
Who.Show

‘Release the DC…
Call ReleaseDC(HW, HA)

‘Add color…
Who.DrawMode = 9
Who.ForeColor = tColor
Who.Line (0, 0)-(iWidth, iHeight), , BF

End Sub
Sub Progress(pb As Control, ByVal percent)

Dim num$
If Not pb.AutoRedraw Then
pb.AutoRedraw = -1
End If
pb.Cls
pb.ScaleWidth = 100
pb.DrawMode = 10
num$ = Format$(percent, “###”) + “%”
pb.CurrentX = 50 – pb.TextWidth(num$) / 2
pb.CurrentY = (pb.ScaleHeight – pb.TextHeight(num$)) / 2
pb.Print num$
pb.Line (0, 0)-(percent, pb.ScaleHeight), , BF
pb.Refresh
End Sub