Hillo?Can anyone tell me how can I drag Picture2 in Picture2(Picture2 is the holder o

[iProgram]

I wanna make a process bar just as Winamp.But I can realize it.

[HeSaidJoe]

'not sure what your are after but this is an example
'or making your own progress bar with a picture box
'
Work = Int(Abs(Percent))
If Work > 100 Then Work = 100
'
With frmSaveTips.Progress       '<<<   With application form
    .BackColor = vbWhite        '<<<   White background
    If Not .AutoRedraw Then     '<<<   picture in memory ?
    .AutoRedraw = True          '<<<   make one
    End If
    
    .Cls                        '<<<   clear picture in memory
    .ScaleWidth = 100           '<<<   new scalemodus
    .DrawMode = 10              '<<<   not XOR Pen Modus

    Num = Format$(Work, "###") + "% Completed"

    .CurrentX = 50 - .TextWidth(Num) / 2         '<<<  %age is Centered

    .CurrentY = (.ScaleHeight - .TextHeight(Num)) / 2

    frmSaveTips.Progress.ForeColor = vbBlack     '<<<  Black text
    frmSaveTips.Progress.Print Num               '<<<  print percent

    frmSaveTips.Progress.Line (0, 0)-(Work, .ScaleHeight), vbBlue, BF
    .Refresh          '<<<  show
End With
'
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'  <<<<<<<<<<<<   event code for form   >>>>>>>>>>>>>>>>>>>

Private Sub Command1_Click()

intTotalCount = 1000    'whatever..use 1000 for this example

'print the line & increment the count

Dim i, copied

For i = 1 To 1000
 
    Print "This is a progress bar sample!"
    
    copied = copied + 1    'increment for progress bar
    Call DoProgress(copied / intTotalCount * 100)   'progress bar set to 100
 Next i

End Sub

[iProgram]

I find a control named Slider in Microsoft Windows Common Controls 6.0 and it doesn't look well.I wanna make my own Slider control instead.But I can't drag object(Picture1).5~~~~~~~~~~~~~
This is my trouble.

[da_silvy]

you could use the progress bar