Why this code is going wrong

[Deepak Sakpal]

Hi, paste this code in Form1

This is the code:

Public Delegate Function MessageBoxShowHandler(ByVal test As String) As DialogResult
    Dim del As New MessageBoxShowHandler(AddressOf MessageBox.Show)
 
    Dim WithEvents clsOuterClass As OuterClass
 
    Public Class OuterClass
        Public OuterOutput0 As Short
        Public Event ThrdCmplt0(ByVal OuterOutput0 As Short)
 
        Dim WithEvents clsInnerClass As InnnerClass
 
        Public Sub OuterProcedure()
            clsInnerClass = New InnnerClass()
            Dim Thread0 As New System.Threading.Thread(AddressOf clsInnerClass.InnerProcedure0)
            clsInnerClass.InnerInput0 = 10000
            Thread0.Start()
        End Sub
 
        Sub InnerProcedure0_EventHandler(ByVal InnerOutput0 As Short) Handles clsInnerClass.ThreadComplete0
            OuterOutput0 = InnerOutput0
            RaiseEvent ThrdCmplt0(OuterOutput0)
        End Sub
    End Class
 
    Public Sub Outer_EventHandler(ByVal OuterOutput0 As Short) Handles clsOuterClass.ThrdCmplt0
        del.BeginInvoke(CStr(OuterOutput0), Nothing, Nothing)
    End Sub
 
    Public Class InnnerClass
        Public InnerInput0 As Short
        Public InnerOutput0 As Short
 
        Public Event ThreadComplete0(ByVal InnerOutput0 As Short)
 
        Public Sub InnerProcedure0()
            Dim iCtr0 As Short
            For iCtr0 = 1 To InnerInput0
                InnerOutput0 = InnerOutput0 + 1
            Next
            RaiseEvent ThreadComplete0(InnerOutput0)
        End Sub
    End Class
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Short
        '
        '-->> Why this code don't displays messagebox 5 times <<--
        For i = 1 To 5
            clsOuterClass = New OuterClass()
            Dim Thrd0 As New System.Threading.Thread(AddressOf clsOuterClass.OuterProcedure)
            Thrd0.Start()
        Next
        '^^^^^^^^^^^^^^^^^^^^^^^
    End Sub

Please help me