Public Type PLUGIN_INFO_STRUCT
       PLUG_Version As Long
       PLUG_Type As Long
End Type

Public Function GET_INFO(ByRef INFO_STRUCT As PLUGIN_INFO_STRUCT)
    INFO_STRUCT.PLUG_Type = "CHAT"
    INFO_STRUCT.PLUG_Version = 1
End Function

Public Type PLUGIN_INFO_STRUCT
       PLUG_Version As Long
       PLUG_Type As Long
End Type
Public INFO_STRUCT As PLUGIN_INFO_STRUCT
Public oDLL As Object
 
Public Sub main()
    Set oDLL = GetObject("", "Chat_Plugin.clsChat")
    oDLL.GET_INFO INFO_STRUCT
End Sub

VB RULEZ !