Vb2008 ผมใส่Code เมื่อกดButton1จะรันProgressbarไปถึงสุดแล้วเปิดF.2แต่มันไม่เปิด

Vb2008 ผมใส่Code เมื่อกดButton1จะรันProgressbarไปถึงสุดแล้วเปิดF.2แต่มันไม่เปิด
อะครับ
นี่Codeที่พี่ kaimuk ให้มา
ผมใสไปยังงี้
Form1
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i = 1 To 100
            ProgressBar1.Value = i
            Threading.Thread.Sleep(20)
        Next
        If ProgressBar1.Value = 100 Then
            ProgressBar1.Value = 0
            If MsgBox("เมิงจะไป Form2 ไหมสาด ", MsgBoxStyle.YesNoCancel, "555") = MsgBoxResult.Yes Then
                ' Form2.Show()
                Me.Close()
            End If
        End If
    End Sub
End Class

Form2

Public Class Form2

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

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        End
    End Sub
End Class
 ตอนกด Yes มันปิดโปรแกรมไปเลยครับ ไม่รันForm2 ผมลองเซฟแล้วเข้าโฟลเดอร์ไป ในDelug แล้ว

ผมลองทำดูตามนี้ครับ
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i = 1 To 100
            ProgressBar1.Value = i
            Threading.Thread.Sleep(20)
        Next
        If ProgressBar1.Value = 100 Then
            ProgressBar1.Value = 0
            If MessageBox.Show("เมิงจะไป Form2 ไหมสาด ", "", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Stop) = Windows.Forms.DialogResult.Yes Then
                Form2.Show()
                Me.Hide()
            End If
        End If

    End Sub