Для "c_auth.ClientRequest" не определены параметры-типы и поэтому нельзя использовать аргументы-типы

Public Class PacketHandler
    Private Shared m_instance As PacketHandler
    Public Shared ReadOnly Property Instance() As PacketHandler
        Get
            If m_instance Is Nothing Then
                m_instance = New PacketHandler()
            End If
 
            Return m_instance
        End Get
    End Property
 
    Private requests As New Dictionary(Of Byte, ClientRequest(Of L2Client))()
 
    Public Sub New()
        '  Me.register(&H0, New RequestAuthLogin())
        ' Me.register(&H2, New RequestServerLogin())
        'Me.register(&H5, New RequestServerList())
        'Me.register(&H7, New RequestAuthGameGuard())
    End Sub
 
    Private Sub register(code As Byte, cr As ClientRequest(Of L2Client))
        Me.requests.Add(code, cr)
    End Sub
 
    Public Function handle(client As L2Client, content As Byte()) As ClientRequest(Of L2Client)
        Dim id = content(0)
        If Me.requests.ContainsKey(id) Then
            Dim request = TryCast(Me.requests(id).Clone(), ClientRequest(Of L2Client))
 
            Return request.fill(client, content)
        Else
            Console.WriteLine("unk packet #" & id)
            Return Nothing
        End If
    End Function
End Class

 
    Public Class L2Client
    Inherits ClientConnection
    Private handler As PacketHandler
 
    Private loginCrypt As LoginCrypt
    Public blowfishKey As Byte()
    Public scrambledPair As ScrambledKeyPair
    Public sessionId As Integer
    ' Public account As model.Account
    Public awaitingId As Integer = -1
    Public login1 As Integer, login2 As Integer
    Public play1 As Integer, play2 As Integer
 
    Public Sub New(client As TcpClient, p As Long)
        Me.client = client
        Me.stream = client.GetStream()
        Me.networkId = p
        Me.handler = PacketHandler.Instance
        Me.sessionId = New Random().[Next](Integer.MaxValue)
 
        Dim crypts = CryptService.Instance
        '  Me.scrambledPair = crypts.getScrambledKeyPair()
        Me.blowfishKey = crypts.getBlowfishKey()
        Me.loginCrypt = New LoginCrypt()
        Me.loginCrypt.updateKey(Me.blowfishKey)
 
        Me.sendPacket(New SM_00_INIT(Me))
    End Sub
 
    Protected Overrides Sub disconnected()
        Console.WriteLine("client connection lost")
        If Me.awaitingId <> -1 Then
            AccountService.Instance.disconnected(Me)
        End If
    End Sub
 
    Protected Overrides Sub handlePacket(packet As Byte())
        If Not Me.loginCrypt.decrypt(packet, 0, packet.Length) Then
            Console.WriteLine("blowfish failed on . please restart auth server.")
        Else
            Dim request = Me.handler.handle(Me, packet)
            If request IsNot Nothing Then
                Console.WriteLine("<< " + request.[GetType]().Name & " size=" & packet.Length)
                    New Thread(New ThreadStart(request.executeMe)).Start()
            End If
        End If
    End Sub
 
    Public Sub sendPacket(cp As ClientPacket)
        cp.writeImpl()
        Dim data = cp.toArray()
        data = Me.loginCrypt.encrypt(data, 0, data.Length)
 
        Dim list As New List(Of Byte)()
        list.AddRange(BitConverter.GetBytes(CShort(data.Length + 2)))
        list.AddRange(data)
 
        Console.WriteLine(">> " + cp.[GetType]().Name & " size=" & list.Count)
        Me.stream.Write(list.ToArray(), 0, list.Count)
        Me.stream.Flush()
        list.Clear()
    End Sub
 
    Friend Sub setLoginPair(login1 As Integer, login2 As Integer)
        Me.login1 = login1
        Me.login2 = login2
    End Sub
 
    Friend Sub setPlayPair(play1 As Integer, play2 As Integer)
        Me.play1 = play1
        Me.play2 = play2
    End Sub
End Class

Public MustInherit Class ClientRequest
    Implements ICloneable
    Public Property content() As Byte()
        Get
            Return m_content
        End Get
        Set(value As Byte())
            m_content = Value
        End Set
    End Property
    Private m_content As Byte()
    Private offset As Integer
    Public Property client() As L2Client
        Get
            Return m_client
        End Get
        Set(value As L2Client)
            m_client = Value
        End Set
    End Property
    Private m_client As L2Client
 
    Public Sub New()
    End Sub
 
    Public Function readD() As Integer
        Dim result As Integer = BitConverter.ToInt32(content, offset)
        offset += 4
        Return result
    End Function
 
    Public Function readC() As Byte
        Dim result As Byte = content(offset)
        offset += 1
        Return result
    End Function
 
    Public Function readH() As Short
        Dim result As Short = BitConverter.ToInt16(content, offset)
        offset += 2
        Return result
    End Function
 
    Public Function readF() As Double
        Dim result As Double = BitConverter.ToDouble(content, offset)
        offset += 8
        Return result
    End Function
 
    Public Function readB(Length As Integer) As Byte()
        Dim result As Byte() = New Byte(Length - 1) {}
        Array.Copy(content, offset, result, 0, Length)
        offset += Length
        Return result
    End Function
 
    Public Sub executeMe()
        
    End Sub
 
    Protected MustOverride Sub runImpl()
 
    Protected MustOverride Sub readImpl()
 
    Public Function Clone() As Object Implements ICloneable.Clone
        Return Me.MemberwiseClone()
    End Function
 
    Public Function fill(cn As L2Client, content As Byte()) As ClientRequest
        Me.client = cn
        Me.content = content
        Me.offset = 1
        Return Me
    End Function
End Class