[vb6] a proposito di progress bar

[tas]

Intendevo dire una proporzione:

Progress : Value = MaxProgress : Max

Value = (Progress * Max) / MaxProgress

Private Sub rs_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
   With ProgressBar1
      .Min = 0
      .Max = 32767
      .Value = (Progress * .Max) / MaxProgress
   End With
End Sub

Non l'ho testato, ma dovrebbe funzionare.