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