اگر بوت شدن ویندوز7 شما با مشکل روبه‌رو است، می‌توان به‌سادگی بوت‌لودر ویندوز7 را به‌صورت دستی از نو تنظیم کرد. این کار تنها به یک دیسک ویندوز نیاز دارد.
اگر به‌اشتباه، یک ویندوز قدیمی را روی دستگاهی که ویندوز7 دارد، نصب کردید، به‌احتمال زیاد با این مشکل مواجه خواهید شد و باید این عملیات را انجام دهید:
از دیسک ویندوز سیستم خود را بوت کنید. سپس روی گزینه Repair your computer کلیک کنید. حالا باید نگارش صحیح نصب‌شده روی سیستم خود را انتخاب کنید و گزینه Next را بزنید.
حالا به صفحه System Recover Options می‌روید که می‌توانید از آنجا به خط‌فرمان دسترسی داشته باشید. اکنون اگر بخواهید MBR را از نو بسازید، می‌توانید دستور زیر را وارد کنید:‌

bootrec /fixmbr
همچنین می‌توان یک سکتور بوت جدید در پارتیشن سیستم ایجاد کرد (که اغلب مفیدتر است):
bootrec /fixboot
همچنین با زدن دستور ?/ bootrec می‌توان گزینه‌های دیگر را هم دید. اگر هنگام بوت ویندوز7 یا ویستا، با پیغام BOOTMGR is missing روبه‌رو شدید، همین کار را انجام دهید.
همچنین اگر روی سیستمی که ویندوز7 دارد، ویندوز اکس‌پی ریختید، متوجه خواهید شد که اجرای ویندوز7 ناممکن خواهد شد. بنابراین با کمک این دستور می‌توان بوت‌لودر ویندوز7 را بازگرداند:
bootsect /nt60 all
بسته به پارتیشنی که ویندوز روی آن نصب است، احتمالا باید گزینه drive letter را به‌جای all، دقیقا وارد کنید.
پس از این‌که وارد ویندوز7 شدید، اگر مایل به حفظ ویندوز اکس‌پی بودید، در ویندوز کامند عبارت زیر را وارد کنید:
bcdedit /create {ntldr} -d “Windows XP”

از منوی toolbox زاست کلیک میکنیم وchoese item  را انتخاب میکنیم و از جدول کامپوننتهای برنامه عنصرprint formرا انتخاب و آن را روی فرممون میکشیم و دستور اون هم به صورت زیر استفاده میشود

 Private Sub Button1_Click(ByVal sender As System., ByVal e As System.EventArgs) Handles Button1.Click

        PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview

        PrintForm1.Print()

    End Sub

Private Sub Form1_Load(ByVal sender As System., ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.Image = System.Drawing.Image.FromFile("d:/12.jpg")
    End Sub

  Private Sub Button1_Click(ByVal sender As System., ByVal e As System.EventArgs) Handles Button1.Click
        er.SetError(TextBox1, "خطا در ورود اطلاعات")
    End Sub

   Private Sub Button1_Click(ByVal sender As System., ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.Filter = ("image file(*.jpg|*.jpg")
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.ShowDialog()
        Me.BackgroundImage = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)

    End Sub

    Private Sub Button2_Click(ByVal sender As System., ByVal e As System.EventArgs) Handles Button2.Click
        Dim d As StreamReader
        OpenFileDialog1.ShowDialog()
        d = New StreamReader(OpenFileDialog1.FileName)
        TextBox1.Text = d.ReadToEnd
        FileClose()
    End Sub

   Private Sub Button1_Click(ByVal sender As System., ByVal e As System.EventArgs) Handles Button1.Click
        SaveFileDialog1.ShowDialog()
        FileOpen(2, SaveFileDialog1.FileName & ".reg", OpenMode.Output)
        PrintLine(2, TextBox1.Text)
        FileClose()
    End Sub

   Private Sub Button11_Click(ByVal sender As System., ByVal e As System.EventArgs) Handles Button11.Click
        Me.Validate()
        KharidBindingSource.EndEdit()
        OleDbDataAdapter1.Update(Data1.kharid)
    End Sub