До меня сразу-то не дошло что надо Прогресс-Бар воткнуть в Timer. Timer я выставил на 1000 - хотя разницы между 100, 200, 500 и 1000 никакой не заметил. Naghual говорит, что если запусть процесс ресурсоемкий, то время криво отображаться будет, так на это можно сделать приоритет минимальный в Диспетчере Задач. И ваще мне кажется это от мощности ЦПУ зависит больше, чем от объекта Timer, который все так ругают - у меня все проходит гладко.

Код

Private Sub Timer1_Timer() Dim i As Long Dim BitRate As Integer On Error GoTo Err53FileNoFound If FileLen("c:\esm.ogg") / 1048576 > 1 Then BitRate = 500 i = ((FileLen("c:\esm.wav")) / (1048576)) / (1411 / (BitRate - BitRate * 0.135)) Text2.Text = (FileLen("c:\esm.ogg")) / 1048576 ProgressBar1.Min = 0.0001 ProgressBar1.Max = i ProgressBar1.Value = Val(Text2.Text) End If Err53FileNoFound: If Err.Number = 53 Then End If End Sub Private Sub Command1_Click() Text1.Text = FileLen("c:\ESM.wav") Shell ("c:\OggShell\oggenc.exe") & (" --bitrate 500 c:\esm.wav"), vbHide End Sub

Добавлено @ 16:46
Да, и еще один вопрос: как программно в Visual BAsic убить процесс в Диспетчере Задач например с PID № 1400. Именно УБИТЬ ПРОЦЕСС, а не Снять Задачу!