Bu kodla sistem geri yukleme noktasi oluşturursunuz.

Kod:
Dim restPoint = GetObject("winmgmts:.rootdefault:Systemrestore") If restPoint IsNot Nothing Then End If Dim dl As String = TextBox1.Text ProgressBar1.Visible = True If restPoint.CreateRestorePoint(dl, 0, 100) = 0 Then MessageBox.Show("İşlem Tamamlandı!", "Tamam", MessageBoxButtons.OK, MessageBoxIcon.Information) ProgressBar1.Visible = False Else MessageBox.Show("İşlem Hatalı!", "Hata", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) end if

__________________