i know how to create plug-ins but I wan't my server & client to be almost completely based upon Plug-Ins, my problem is my Main program proccesses all packets like this:


Code:
Private Sub ProcessMessagesFrom(ByVal index As Integer)
Dim lngDelimiter As Long
Dim data As String
Dim lngWsk As Long

    'Search for whole messages, extract them, and process them.
    Do
        lngDelimiter = InStr(strBuffer(index), MESSAGE_DELIMITER)
        If lngDelimiter > 0 Then
            'Found a whole message.  Extract it.
            data = Left$(strBuffer(index), lngDelimiter)
            strBuffer(index) = Mid$(strBuffer(index), lngDelimiter + 1)
            
            If User(index).ClientUpToDate = True Then
                If Left(data, 3) = "REG" Then ' registering
                    data = Left(data, Len(data) - Len(MESSAGE_DELIMITER))
                    data = Right(data, Len(data) - 3)
                    Call DoRegister(data, index)
                ElseIf Left(data, 5) = "LOGIN" Then ' registering
                    data = Left(data, Len(data) - Len(MESSAGE_DELIMITER))
                    data = Right(data, Len(data) - 5)
                    Call AccountLogIn(index, data)
                End If
            Else 'client not up to date. check
                If Left(data, 3) = "VER" Then
                    data = Left(data, Len(data) - Len(MESSAGE_DELIMITER))
                    If Version1 <> Right(data, Len(data) - 3) Then
                        Winsock1(index).SendData "VERNOhttp://www.teampo2.com/OnlineCrimeMMORPGClient.zip" & MESSAGE_DELIMITER
                        DoEvents
                    Else
                        User(index).ClientUpToDate = True
                    End If
                End If
            End If
        End If
    Loop Until lngDelimiter < 1
Exit Sub

End Sub
What I need is to somehow have my plug-ins be able to be put into the processMessagesFrom somehow? is it possible, if so how so?