01-06-20, 09:13 PM
السلام عليكم ورحمة الله وبركاته
هي افكار فقط
مالم تكن فخا لاحد
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