Öncelikle bir command buton açıyoruz ve kodumuzu yazıyoruz.
Private Sub Command1_Click()
Shell ("dxdiag")
ProgressBar1.Value = ProgressBar1.Value + 100
End Sub
Sonra Ctrl + T ile Components sayfasını açıyoruz ve oradan microsof common controls 6 yı şeçiyoruz tamam diyip kapatıyoruz ve solda menüden Progressbar ı seçiyoruz ve progressbarı ’ ın içine bu kodları yazıyoruz.
Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
ProgressBar1.Value = ProgressBar1.Value + 100
End Sub
Ve projeyi kaydetmek kalıyor geriye.
Selametle.
Buda programın resmi.
