[fouadhdfouad]

تفضل اخي 

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dr As Match = Regex.Match(TextBox1.Text, "id=\w+")
        MsgBox(dr.Value)
    End Sub