fix snippets 5000 errors

Author: gewarren

snippets/visualbasic/System.Web.ClientServices/ClientFormsIdentity/Overview/ClientAppServicesDemo.vbproj

@@ -1,4 +1,6 @@
-Imports System.Security
+Imports System.Drawing
+Imports System.Security
+Imports System.Windows.Forms
 
 Public Class Form1
     Public Shared Sub Main()
@@ -10,7 +12,7 @@ Public Class Form1
     End Sub
 
     Private Sub SelectFileButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectFileButton.Click
-        Dim dr As DialogResult = Me.OpenFileDialog1.ShowDialog()
+        Dim dr As DialogResult = OpenFileDialog1.ShowDialog()
         If (dr = System.Windows.Forms.DialogResult.OK) Then
             ' Read the files
             Dim file As String
@@ -25,12 +27,12 @@ Public Class Form1
                     FlowLayoutPanel1.Controls.Add(pb)
                 Catch SecEx As SecurityException
                     ' The user lacks appropriate permissions to read files, discover paths, etc.
-                    MessageBox.Show("Security error. Please contact your administrator for details.\n\n" & _
-                        "Error message: " & SecEx.Message & "\n\n" & _
+                    MessageBox.Show("Security error. Please contact your administrator for details.\n\n" &
+                        "Error message: " & SecEx.Message & "\n\n" &
                         "Details (send to Support):\n\n" & SecEx.StackTrace)
                 Catch ex As Exception
                     ' Could not load the image - probably permissions-related.
-                    MessageBox.Show(("Cannot display the image: " & file.Substring(file.LastIndexOf("\"c)) & _
+                    MessageBox.Show(("Cannot display the image: " & file.Substring(file.LastIndexOf("\"c)) &
                     ". You may not have permission to read the file, or " + "it may be corrupt." _
                     & ControlChars.Lf & ControlChars.Lf & "Reported error: " & ex.Message))
                 End Try
@@ -40,13 +42,13 @@ Public Class Form1
 
     Public Sub InitializeOpenFileDialog()
         ' Set the file dialog to filter for graphics files.
-        Me.OpenFileDialog1.Filter = _
-                "Images (*.BMP;*.JPG;*.GIF)|*.BMP;*.JPG;*.GIF|" + _
+        OpenFileDialog1.Filter =
+                "Images (*.BMP;*.JPG;*.GIF)|*.BMP;*.JPG;*.GIF|" +
                 "All files (*.*)|*.*"
 
         ' Allow the user to select multiple images.
-        Me.OpenFileDialog1.Multiselect = True
-        Me.OpenFileDialog1.Title = "My Image Browser"
+        OpenFileDialog1.Multiselect = True
+        OpenFileDialog1.Title = "My Image Browser"
     End Sub
     '</SNIPPET1>
 End Class

snippets/visualbasic/System.Windows.Forms/FileDialog/FileNames/Form1.vb

@@ -1,11 +1,12 @@
 '<SNIPPET1>
 Imports System.IO
 Imports System.Text
+Imports System.Windows.Forms
 
 Public Class Form1
     Public Shared Sub Main()
     End Sub
-    
+
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         Me.SaveFileDialog1.SupportMultiDottedExtensions = True
         Me.SaveFileDialog1.Filter = "Data text files|*.data.txt"

snippets/visualbasic/System.Windows.Forms/FileDialog/SupportMultiDottedExtensions/Form1.vb

@@ -1,4 +1,6 @@
 '<SNIPPET1>
+Imports System.Windows.Forms
+
 Public Class MouseWheelControl
     Sub New()
         ' Add initialization code for the control here. 
@@ -10,4 +12,4 @@ Public Class MouseWheelControl
         ' Perform custom mouse wheel action here. 
     End Sub
 End Class
-'</SNIPPET1>
+'</SNIPPET1>

snippets/visualbasic/System.Windows.Forms/HandledMouseEventArgs/Overview/MouseWheelControl.vb

@@ -1,6 +1,7 @@
 Imports System.Xml
 Imports System.Data
 Imports System.Data.SqlClient
+Imports System.Windows.Forms
 
 Public Class Form1
     Public Shared Sub Main()

snippets/visualbasic/System.Windows.Forms/HtmlDocument/Overview/Form1.vb

@@ -1,4 +1,5 @@
 Imports System.Net
+Imports System.Windows.Forms
 
 Public Class Form1
     Public Shared Sub Main()

snippets/visualbasic/System.Windows.Forms/HtmlElement/Overview/Form1.vb

@@ -1,4 +1,6 @@
-Public Class Form1
+Imports System.Windows.Forms
+
+Public Class Form1
     Public Shared Sub Main()
     End Sub
 

snippets/visualbasic/System.Windows.Forms/HtmlElementErrorEventArgs/Overview/Form1.vb

@@ -1,4 +1,6 @@
-Public Class Form1
+Imports System.Windows.Forms
+
+Public Class Form1
     Public Shared Sub Main()
     End Sub
 

snippets/visualbasic/System.Windows.Forms/HtmlElementEventArgs/ClientMousePosition/Form1.vb

@@ -1,4 +1,6 @@
-'<Snippet1>
+Imports System.Windows.Forms
+
+'<Snippet1>
 Public Class Form1
     Public Shared Sub Main()
     End Sub

snippets/visualbasic/System.Windows.Forms/KeysConverter/Overview/Form1.vb

@@ -1,4 +1,6 @@
-Public Class Form1
+Imports System.Windows.Forms
+
+Public Class Form1
     Public Shared Sub Main()
     End Sub