UseInferredMemberName: only field initializers in anonymous object creation (#23817)

src/EditorFeatures/VisualBasicTest/UseInferredMemberName/UseInferredMemberNameTests.vb

@@ -39,6 +39,21 @@ End Class
 ", parseOptions:=s_parseOptions)
         End Function
 
+        <Fact>
+        <WorkItem(23659, "https://github.com/dotnet/roslyn/issues/23659")>
+        Public Async Function TestMissingForObjectCreation() As Task
+            Await TestMissingAsync(
+"
+Public Class C
+    Public Property P As Integer
+
+    Sub M(p As Integer)
+        Dim f = New C With { [|.P|] = p }
+    End Sub
+End Class
+", New TestParameters(s_parseOptions))
+        End Function
+
         <Fact>
         Public Async Function TestInferredTupleName2() As Task
             Await TestAsync(

src/Features/VisualBasic/Portable/UseInferredMemberName/VisualBasicUseInferredMemberNameDiagnosticAnalyzer.vb

@@ -62,6 +62,9 @@ Namespace Microsoft.CodeAnalysis.VisualBasic.UseInferredMemberName
 
         Private Sub ReportDiagnosticsIfNeeded(fieldInitializer As NamedFieldInitializerSyntax, context As SyntaxNodeAnalysisContext,
                                               optionSet As OptionSet, syntaxTree As SyntaxTree)
+            If Not fieldInitializer.Parent.Parent.IsKind(SyntaxKind.AnonymousObjectCreationExpression) Then
+                Return
+            End If
 
             If Not optionSet.GetOption(CodeStyleOptions.PreferInferredAnonymousTypeMemberNames, context.Compilation.Language).Value OrElse
                 Not VisualBasicInferredMemberNameReducer.CanSimplifyNamedFieldInitializer(fieldInitializer) Then