Public Class MyDirectoryEntry
    Inherits System.DirectoryServices.DirectoryEntry
 
    Public Sub New(ByVal Username As String, ByVal Password As String)
        MyBase.New(Nothing, Username, Password)
    End Sub
 
End Class