[mohammed moh]

و عليكم السلام و رحمة الله
إن كنت فهمت قصدك ممكن هذا الحل يساعدك و الله أعلم
المهم تفضل الكود و توكل على الله

PHP كود :

Private Sub form1_Paint(ByVal sender As Object,ByVal e As PaintEventArgs) Handles MyBase.Paint
        Dim g As Graphics = e.Graphics
        Dim pen As New Pen(Color.Red, 2.0)
        For Each x As Control In Me.Controls
            If TextBox1.Text > "" Then
                If TypeOf x Is TextBox Then

                    g.DrawRectangle(pen, New Rectangle(x.Location, x.Size))
                End If
            End If
        Next
        pen.Dispose()
    End Sub

   
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Refresh()
    End Sub 


+ أنت حر في إختيار الشرط الذي تريد مثلا انا في هذا المثال اخترت أنه عندما يكون النص غير فارغ يقوم بتلوين الإيطار
بالتوفيق أخي الكريم