fix compile errors

Author: gewarren

snippets/visualbasic/Microsoft.VisualBasic.ApplicationServices/User/Overview/VbVbalrMyUser.vbproj

@@ -3,5 +3,6 @@
     <OutputType>Exe</OutputType>
     <TargetFramework>net481-windows</TargetFramework>
     <UseWindowsForms>true</UseWindowsForms>
+    <GenerateResourceUsePreserializedResources>true</GenerateResourceUsePreserializedResources>
   </PropertyGroup>
 </Project>

snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class1.vb

@@ -1,7 +1,11 @@
 Option Strict On
 Option Explicit On
+Imports System.Windows.Forms
 
 Class Class1
+    Public Shared Sub Main()
+    End Sub
+
     Public Sub testClock()
         '<snippet21>
         MsgBox("Current local time: " & My.Computer.Clock.LocalTime)
@@ -18,18 +22,18 @@ Class Class1
         Loop
     End Sub
 
-    Private Function IsTimeUp( 
-        ByVal startTicks As Integer, 
-        ByVal seconds As Integer 
+    Private Function IsTimeUp(
+        ByVal startTicks As Integer,
+        ByVal seconds As Integer
     ) As Boolean
         ' This function throws an overflow exception if the
         ' tick count difference is greater than 2,147,483,647,  
         ' about 24 days for My.Computer.Clock.TickCount.
 
         ' Use UInteger to simplify the code for roll over.
-        Dim uStart As UInteger = 
+        Dim uStart As UInteger =
             CUInt(CLng(startTicks) - Integer.MinValue)
-        Dim uCurrent As UInteger = 
+        Dim uCurrent As UInteger =
             CUInt(CLng(My.Computer.Clock.TickCount) - Integer.MinValue)
 
         ' Calculate the tick count difference.
@@ -52,50 +56,50 @@ Class Class1
 
     '<snippet17>
     Sub PlaySystemSound()
-        My.Computer.Audio.PlaySystemSound( 
+        My.Computer.Audio.PlaySystemSound(
             System.Media.SystemSounds.Asterisk)
     End Sub
     '</snippet17>
 
     '<snippet16>
     Sub PlayBackgroundSoundResource()
-        My.Computer.Audio.Play(My.Resources.Waterfall, 
+        My.Computer.Audio.Play(My.Resources.Waterfall,
             AudioPlayMode.WaitToComplete)
     End Sub
     '</snippet16>
 
     '<snippet15>
     Sub PlayBackgroundSoundFile()
-        My.Computer.Audio.Play("C:\Waterfall.wav", 
+        My.Computer.Audio.Play("C:\Waterfall.wav",
             AudioPlayMode.WaitToComplete)
     End Sub
     '</snippet15>
 
     '<snippet14>
     Sub PlaySoundResource()
-        My.Computer.Audio.Play(My.Resources.Waterfall, 
+        My.Computer.Audio.Play(My.Resources.Waterfall,
             AudioPlayMode.WaitToComplete)
     End Sub
     '</snippet14>
 
     '<snippet13>
     Sub PlaySoundFile()
-        My.Computer.Audio.Play("C:\Waterfall.wav", 
+        My.Computer.Audio.Play("C:\Waterfall.wav",
             AudioPlayMode.WaitToComplete)
     End Sub
     '</snippet13>
 
     '<snippet12>
     Sub PlayLoopingBackgroundSoundResource()
-        My.Computer.Audio.Play(My.Resources.Waterfall, 
+        My.Computer.Audio.Play(My.Resources.Waterfall,
               AudioPlayMode.BackgroundLoop)
     End Sub
     '</snippet12>
 
     '<snippet19>
     '<snippet11>
     Sub PlayLoopingBackgroundSoundFile()
-        My.Computer.Audio.Play("C:\Waterfall.wav", 
+        My.Computer.Audio.Play("C:\Waterfall.wav",
             AudioPlayMode.BackgroundLoop)
     End Sub
     '</snippet11>
@@ -121,35 +125,35 @@ Class Class1
         MsgBox("Computer name: " & My.Computer.Name)
         '</snippet1>
         '<snippet2>
-        MsgBox("Computer's available physical memory: " & 
+        MsgBox("Computer's available physical memory: " &
             My.Computer.Info.AvailablePhysicalMemory)
         '</snippet2>
         '<snippet3>
-        MsgBox("Computer's available virtual memory: " & 
+        MsgBox("Computer's available virtual memory: " &
             My.Computer.Info.AvailableVirtualMemory)
         '</snippet3>
         '<snippet4>
-        MsgBox("Computer's UI culture name: " & 
+        MsgBox("Computer's UI culture name: " &
             My.Computer.Info.InstalledUICulture.DisplayName)
         '</snippet4>
         '<snippet5>
-        MsgBox("Computer's operating system name: " & 
+        MsgBox("Computer's operating system name: " &
             My.Computer.Info.OSFullName)
         '</snippet5>
         '<snippet6>
-        MsgBox("Computer's operating system platform: " & 
+        MsgBox("Computer's operating system platform: " &
             My.Computer.Info.OSPlatform)
         '</snippet6>
         '<snippet7>
-        MsgBox("Computer's operating system version: " & 
+        MsgBox("Computer's operating system version: " &
             My.Computer.Info.OSVersion)
         '</snippet7>
         '<snippet8>
-        MsgBox("Computer's available physical memory: " & 
+        MsgBox("Computer's available physical memory: " &
             My.Computer.Info.TotalPhysicalMemory)
         '</snippet8>
         '<snippet9>
-        MsgBox("Computer's available virtual memory: " & 
+        MsgBox("Computer's available virtual memory: " &
             My.Computer.Info.TotalVirtualMemory)
         '</snippet9>
 

snippets/visualbasic/Microsoft.VisualBasic.Devices/Audio/Overview/Class2.vb

@@ -1,13 +1,16 @@
 Option Explicit On
 Option Strict On
+Imports System.Windows.Forms
+
+
 
 ''''''''''''''''
 ' Keyboard
 '''''''''''''''
 
 Namespace Keyboard
     Class Class0746a247f57e45fc93b7de462bef9206
-   
+
         Public Sub Method23()
             ' 0746a247-f57e-45fc-93b7-de462bef9206
             ' My.Computer.Keyboard.AltKeyDown Property
@@ -18,7 +21,7 @@ Namespace Keyboard
                 MsgBox("ALT key up")
             End If
             ' </snippet23>
-      
+
             ' 3a08efec-d444-4200-9341-fff79474d0cc
             ' My.Computer.Keyboard.ScrollLock Property
             ' <snippet31>
@@ -121,7 +124,7 @@ Namespace Keyboard
         End Sub
 
     End Class
- 
+
 End Namespace
 
 ''''''''''''''''
@@ -136,7 +139,7 @@ Namespace Ports
         ' <snippet27>
         Sub DialModem()
             ' Dial a number via an attached modem on COM1.
-            Using com1 As IO.Ports.SerialPort = 
+            Using com1 As IO.Ports.SerialPort =
                     My.Computer.Ports.OpenSerialPort("COM1", 9600)
                 ' <snippet29>
                 com1.DtrEnable = True
@@ -151,7 +154,7 @@ Namespace Ports
 
         Public Sub Method28()
             ' <snippet28>
-            Using com1 As IO.Ports.SerialPort = 
+            Using com1 As IO.Ports.SerialPort =
                     My.Computer.Ports.OpenSerialPort("COM1", 9600)
             End Using
             ' </snippet28>
@@ -172,7 +175,7 @@ Namespace Ports
         ' <snippet33>
         Sub SendSerialData(ByVal data As String)
             ' Send strings to a serial port.
-            Using com1 As IO.Ports.SerialPort = 
+            Using com1 As IO.Ports.SerialPort =
                     My.Computer.Ports.OpenSerialPort("COM1")
                 com1.WriteLine(data)
             End Using
@@ -184,71 +187,71 @@ Namespace Ports
         ' 8371ce2c-e1c7-476b-a86d-9afc2614b6b7
         ' How to: Receive Strings From Serial Ports in Visual Basic
 
-    ' <snippet37>
-    Function ReceiveSerialData() As String
-        ' Receive strings from a serial port.
-        ' <snippet38>
-        Dim returnStr As String = ""
-        ' </snippet38>
-
-        Dim com1 As IO.Ports.SerialPort = Nothing
-        Try
-            com1 = My.Computer.Ports.OpenSerialPort("COM1")
-            com1.ReadTimeout = 10000
+        ' <snippet37>
+        Function ReceiveSerialData() As String
+            ' Receive strings from a serial port.
+            ' <snippet38>
+            Dim returnStr As String = ""
+            ' </snippet38>
+
+            Dim com1 As IO.Ports.SerialPort = Nothing
+            Try
+                com1 = My.Computer.Ports.OpenSerialPort("COM1")
+                com1.ReadTimeout = 10000
+                Do
+                    ' <snippet41>
+                    Dim Incoming As String = com1.ReadLine()
+                    ' </snippet41>
+                    If Incoming Is Nothing Then
+                        Exit Do
+                        ' <snippet43>
+                    Else
+                        returnStr &= Incoming & vbCrLf
+                        ' </snippet43>
+                    End If
+                Loop
+            Catch ex As TimeoutException
+                returnStr = "Error: Serial Port read timed out."
+            Finally
+                If com1 IsNot Nothing Then com1.Close()
+            End Try
+
+            ' <snippet44>
+            Return returnStr
+            ' </snippet44>
+        End Function
+        ' </snippet37>
+
+        Public Sub Method39()
+            Dim returnStr As String
+
             Do
-                ' <snippet41>
-                Dim Incoming As String = com1.ReadLine()
-                ' </snippet41>
+                Dim Incoming As String = ""
+                ' <snippet42>
                 If Incoming Is Nothing Then
                     Exit Do
-                    ' <snippet43>
-                Else
-                    returnStr &= Incoming & vbCrLf
-                    ' </snippet43>
                 End If
+                ' </snippet42>
             Loop
-        Catch ex As TimeoutException
-            returnStr = "Error: Serial Port read timed out."
-        Finally
-            If com1 IsNot Nothing Then com1.Close()
-        End Try
-
-        ' <snippet44>
-        Return returnStr
-        ' </snippet44>
-    End Function
-    ' </snippet37>
-
-    Public Sub Method39()
-        Dim returnStr As String
-
-        Do
-            Dim Incoming As String = ""
-            ' <snippet42>
-            If Incoming Is Nothing Then
-                Exit Do
-            End If
-            ' </snippet42>
-        Loop
-
-        ' <snippet39>
-        Dim com1 As IO.Ports.SerialPort = Nothing
-        Try
-            com1 = My.Computer.Ports.OpenSerialPort("COM1")
-            com1.ReadTimeout = 10000
-
-        Catch ex As TimeoutException
-            returnStr = "Error: Serial Port read timed out."
-        Finally
-            If com1 IsNot Nothing Then com1.Close()
-        End Try
-        ' </snippet39>
-
-        ' <snippet40>
-        Do
-        Loop
-        ' </snippet40>
-    End Sub
+
+            ' <snippet39>
+            Dim com1 As IO.Ports.SerialPort = Nothing
+            Try
+                com1 = My.Computer.Ports.OpenSerialPort("COM1")
+                com1.ReadTimeout = 10000
+
+            Catch ex As TimeoutException
+                returnStr = "Error: Serial Port read timed out."
+            Finally
+                If com1 IsNot Nothing Then com1.Close()
+            End Try
+            ' </snippet39>
+
+            ' <snippet40>
+            Do
+            Loop
+            ' </snippet40>
+        End Sub
 
     End Class
 
@@ -291,10 +294,10 @@ Namespace Mouse
             If My.Computer.Mouse.WheelExists Then
                 Dim lines As Integer = My.Computer.Mouse.WheelScrollLines
                 If lines > 0 Then
-                    MsgBox("Application scrolls " & 
+                    MsgBox("Application scrolls " &
                         lines & " line(s) for each wheel turn.")
                 Else
-                    MsgBox("Application scrolls " & 
+                    MsgBox("Application scrolls " &
                         (-lines) & " page(s) for each wheel turn.")
                 End If
             Else