Fix VB.NET syntax errors in RaiseEvent example - remove C# string interpolation, move to standalone classes, use proper VB syntax

Co-authored-by: BillWagner <[email protected]>

Author: Copilot

docs/visual-basic/language-reference/statements/raiseevent-statement.md

@@ -56,7 +56,7 @@ RaiseEvent eventname[( argumentlist )]
 
  The example demonstrates a simple timer that counts down from 10 to 0 seconds and displays the progress to the console. When the countdown finishes, it displays "Done".  
 
- Add a `WithEvents` variable to your class declarations.  
+ Declare a `WithEvents` variable in your class to handle events from the timer:  
 
  [!code-vb[VbVbalrEvents#14](~/samples/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrEvents/VB/Class1.vb#14)]  
 

samples/snippets/visualbasic/VS_Snippets_VBCSharp/VbVbalrEvents/VB/Class1.vb

@@ -157,47 +157,46 @@ Class Class306ff8ed74dd4b6abd2fe91b17474042
     End Class
     ' </snippet13>
 
-    Class Form1
-        Inherits Form
-        Private WithEvents Button1 As New Button
-        Private WithEvents TextBox1 As New TextBox
-
-        ' <snippet14>
+    ' <snippet14>
+    Public Class TimerExample
         Private WithEvents mTimer As TimerState
         ' </snippet14>
 
         ' <snippet15>
-        Private WithEvents mTimer As TimerState
-
-        Private Sub StartCountdownExample()
-            Console.WriteLine("Starting countdown from 10 seconds...")
+        Public Sub StartCountdownExample()
             mTimer = New TimerState()
             mTimer.StartCountdown(10.0, 1.0)
         End Sub
 
         Private Sub mTimer_UpdateTime(ByVal Countdown As Double) Handles mTimer.UpdateTime
-            Console.WriteLine($"Time remaining: {Countdown:0.0} seconds")
+            Console.WriteLine("Time remaining: " & Format(Countdown, "##0.0") & " seconds")
         End Sub
 
         Private Sub mTimer_Finished() Handles mTimer.Finished
             Console.WriteLine("Done")
         End Sub
+    End Class
 
-        Class TimerState
-            Public Event UpdateTime(ByVal Countdown As Double)
-            Public Event Finished()
-            Public Sub StartCountdown(ByVal Duration As Double,
-                                      ByVal Increment As Double)
-                Dim SoFar As Double = 0
-                Do While SoFar < Duration
-                    System.Threading.Thread.Sleep(CInt(Increment * 1000)) ' Sleep for increment seconds
-                    SoFar += Increment
-                    RaiseEvent UpdateTime(Duration - SoFar)
-                Loop
-                RaiseEvent Finished()
-            End Sub
-        End Class
-        ' </snippet15>
+    Public Class TimerState
+        Public Event UpdateTime(ByVal Countdown As Double)
+        Public Event Finished()
+        Public Sub StartCountdown(ByVal Duration As Double,
+                                  ByVal Increment As Double)
+            Dim SoFar As Double = 0
+            Do While SoFar < Duration
+                System.Threading.Thread.Sleep(CInt(Increment * 1000))
+                SoFar += Increment
+                RaiseEvent UpdateTime(Duration - SoFar)
+            Loop
+            RaiseEvent Finished()
+        End Sub
+    End Class
+    ' </snippet15>
+
+    Class Form1
+        Inherits Form
+        Private WithEvents Button1 As New Button
+        Private WithEvents TextBox1 As New TextBox
 
     End Class
 End Class