Private Sub Form_KeyPress(KeyAscii As Integer)
For a = 1 To 100
Onay.ProgressBar1.Value = a
    For b = 1 To 2000000
   Next b
Next a

Close #1
Onay.Hide
  Gokhan.Show
End Sub

Arkadaşlar Bu Kod visual 6 da her hangi bir tuşa basınca progress bar çalışıyor ve progressbar ın o yeşilleri bittiğinde diğer sayfaya geçiyor bu kodu Visual Basic 2008 Express Edition a Uyumlu Yapıcak Arkadaşlarımız Şimdiden TEşekkürler