Public Class Form1

    Dim sayi As Integer



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Enabled = True

        Timer1.Interval = 300 'İstediğiniz Gibi Değiştirebilirsiniz

    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick



        If sayi = 100 Then

            Timer1.Enabled = False

            Label1.Text = "Yükleme Tamamlandı"

            'Alttakilerden Hangisini Kullanmak İsterseniz Keyfinize Kalmış

            'MsgBox("Bilgisayar Kapatılacaktır", MsgBoxStyle.Critical, "KAPAT")

            'Shell("shutdown -s -t 00", vbNormalFocus) 'Bilgisayarı Kapatır

            MsgBox("Bilgisayar Yeniden Başlatılacak", MsgBoxStyle.Critical, "YENİDEN BAŞLAT")

            Shell("shutdown -r", vbNormalFocus) 'Bilgisayarı Yeniden Başlatır

        Else

            sayi = sayi + 2 'ProgressBarın Artırtırma Sayısı 

            ProgressBar1.Value = sayi

            Label1.Text = "Yükleniyor % " & sayi

        End If





    End Sub

End Class