[vbnet]

.....

ممكن عمل أربع TextBox بالاضافة لواحد خامس يظهر الاسم كامل سواء أدخل ثلاثي أو رباعي كالتالي
Text1 الاسم الأول - إجباري
Text2 الاسم الثاني - إجباري
Text3 الاسم الثالث
Text4 اسم اللقب (العائلة) - إجباري
Text5 الاسم كاملاً

هنا نرى أن الأول والثاني بالاضافة إلى اللقب (العائلة) إجباري، فبالتالي لن يكتب أقل من الاسم الثلاثي

كود :

Private Sub Command1_Click()
    ' نلاحظ لم نتفحص الثالث لأنه اختياري
    If Trim$(Text1.Text) = "" _
    Or Trim$(Text2.Text) = "" _
    Or Trim$(Text4.Text) = "" Then
        MsgBox "يجب إدخال الاسم الثلاثي على الأقل شامل اللقب"
    End If
End Sub

Private Sub Text1_Change()
    Call FullName
End Sub
Private Sub Text2_Change()
    Call FullName
End Sub
Private Sub Text3_Change()
    Call FullName
End Sub
Private Sub Text4_Change()
    Call FullName
End Sub

Private Sub FullName()
    Dim name As String
    name = Trim$(Text1.Text)
    name = name & " " & Trim$(Text2.Text)
    name = Trim$(name) & " " & Trim$(Text3.Text)
    name = Trim$(name) & " " & Trim$(Text4.Text)
    Text5.Text = Trim$(name)
End Sub

اطلاق العنان للخيال البرمجي بتسلسل منطقي ينتج في النهاية برمجة المهمة المطلوبة

.....