[smsm20062009]

بالنسبة لكود الإنتظار فزي ما Midget قالك ولو عايزه ما يهنجش الفورم أستخدم ده

Public Sub Sleep(ByVal millisecondsTimeout As Integer)
    For i As Integer = 0 To millisecondsTimeout / 10
        Application.DoEvents()
        Threading.Thread.Sleep(10)
    Next
End Sub

ملحوظة : بدل ماتحطه في الـForm_Load ويستنى 8 دقايق قبل ما الفروم يظهر حطه في الـForm_Shown

أما بالنسبة لإختصار الكود فالكود مختصر اهو

Dim Fields() As TextBox =
{
PW_1, PW_2, PW_3, PW_4, PW_5, PW_6, PW_7, PW_8,
PW1PT2, PW2PT2, PW3PT2, PW4PT2, PW5PT2, PW6PT2, PW7PT2, PW8PT2
}

If SamePass.Checked = True Then
    For Each Field As TextBox In Fields
        Field.Text = SamePassVal.Text
        Field.Enabled = False
    Next
ElseIf SamePass.Checked = False Then
    For Each Field As TextBox In Fields
        Field.Enabled = True
    Next
End If

ملحوظة : الـTag ده بيتحط فيه كلام بيوصف الـControl أو ليه علاقة بيه وبالمختصر ملوش أي لازمة في البرمجة