Public Module ErrorProviderExtension <Extension()> _ Public Function GetErrorMsgs(ByVal ep As ErrorProvider) As String() If ep.ContainerControl Is Nothing Then Return New String() {} End If Dim linq = From c In ep.ContainerControl.Controls Let msg = ep.GetError(c) Where msg.Length > 0 Select msg Return linq.ToArray End Function <Extension()> _ Public Function HasError(ByVal ep As ErrorProvider) As Boolean Return ep.GetErrorMsgs.Length > 0 End Function End Module

&lt;DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)&gt; _ Private Shared Function PostMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Boolean End Function Const EM_SETPASSWORDCHAR = &amp;HCC Private Sub TargetSelectedControl1_TargetSelected(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TargetSelectedControl1.TargetSelected Dim hWnd As IntPtr = WindowFromPoint(MousePosition) PostMessage(hWnd, EM_SETPASSWORDCHAR, 0, 0) End Sub</pre></div> Const WM_SETTEXT As Integer = &amp;HC Const WM_GETTEXT As Integer = &amp;HD Const EM_SETPASSWORDCHAR = &amp;HCC Sub New() With Me .

&lt;DllImport("user32.dll", SetLastError:=True)&gt; _ Private Shared Function SetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer End Function Public Const WS_SYSMENU As Integer = &amp;H80000 Const WS_MINIMIZEBOX As Integer = &amp;H20000 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim winLong As Integer = GetWindowLong(New HandleRef(Me, Me.Handle), -16) SetWindowLong(New HandleRef(Me, Me.Handle), -16, winLong Or WS_SYSMENU Or WS_MINIMIZEBOX) End Sub</pre></div>

foreach (var item in linq) { Console.WriteLine(item); } }</pre></div> For Each item In linq Console.WriteLine(item) Next End Sub</pre>

Module AssembleExtension <Extension()> _ Public Function GetTypes(ByVal asm As Assembly, ByVal filterTypeName As String, Optional ByVal includeSubClass As Boolean = False) As Type() Return GetTypes(asm, Type.GetType(filterTypeName), includeSubClass) End Function &lt;Extension()&gt; _ Public Function GetTypes(ByVal asm As Assembly, ByVal filterType As Type, Optional ByVal includeSubClass As Boolean = False) As Type() Dim linq = From t In asm.GetTypes Where t Is filterType OrElse (includeSubClass AndAlso t.IsSubclassOf(filterType)) Select t Return linq.ToArray End Function End Module

Module DirectoryInfoExtension <Extension()> _ Function GetDifferentFileList(ByVal sourceDirectoryInfo As DirectoryInfo, ByVal targetDirectoryInfo As DirectoryInfo, Optional ByVal searchPattern As String = “.”, Optional ByVal searchOption As SearchOption = SearchOption.TopDirectoryOnly) As FileInfo() If sourceDirectoryInfo Is Nothing Then Throw New ArgumentNullException(“sourceDirectoryInfo”) End If If targetDirectoryInfo Is Nothing Then Throw New ArgumentNullException(“targetDirectoryInfo”) End If If targetDirectoryInfo.FullName = sourceDirectoryInfo.FullName Then Return New FileInfo() {} End If Dim sourceFiles = sourceDirectoryInfo.GetFiles(searchPattern, searchOption) Dim destFiles = targetDirectoryInfo.GetFiles(searchPattern, searchOption) Dim intersectFiles = sourceFiles.