[سعود]

السلام عليكم ورحمة الله وبركاته

 هي افكار فقط

مالم تكن فخا لاحد

PHP كود :

Public Class Form1
    Dim th As Threading.Thread
    Dim txt As String = ""
    Private Sub msg()
        MsgBox("عفوا لم نعرفك يا:  " & txt, MsgBoxStyle.Critical, "error error")
        th.Abort()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text.Trim = "" Then Exit Sub
        If TextBox1.Text.Trim <> "سعود" Then
            txt = TextBox1.Text
            Dim i As Integer
            For i = 1 To 3
                th = New Threading.Thread(AddressOf msg)
                th.Start()
                Threading.Thread.Sleep(111)
            Next
        End If

    End Sub
End Class