[just.coder]

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ss As New System.Threading.Thread(AddressOf ggg)
        ss.Start()
    End Sub
    Private Sub ggg()

        For XX As Integer = 0 To 1000000000

            If XX = 9000 Then
                MsgBox("done")
            End If

        Next
        MsgBox("done")
    End Sub