Visual Basic

Sub ShutDown(sNodes, sAction)
  Dim sNode, oWMI, colOperatingSystems, obj, oOS, iCMD, nERR, objShell
  Const EWX_LOGOFF = 0
  Const EWX_SHUTDOWN = 1
  Const EWX_REBOOT = 2
  Const EWX_FORCE = 4
  Const EWX_POWEROFF = 8

  For Each sNode In Split(sNodes, ",")
    Set oWMI = GetObject("winmgmts:" _
       & "{impersonationLevel=impersonate,(Shutdown)}!\\" & sNode & "\root\cimv2")
  
    Set colOperatingSystems = oWMI.ExecQuery("Select * from Win32_OperatingSystem")
    For Each obj In colOperatingSystems
      Set oOS = obj:   Exit For
    Next

    sAction = LCase(sAction)  
    Select Case sAction
      Case "logoff"
        iCMD = EWX_LOGOFF
      Case "logoff_force"
        iCMD = EWX_LOGOFF + EWX_FORCE
      Case "shutdown"
        iCMD = EWX_SHUTDOWN
      Case "shutdown_force"
        iCMD = EWX_SHUTDOWN + EWX_FORCE
      Case "reboot"
        iCMD = EWX_REBOOT
      Case "reboot_force"
        iCMD = EWX_REBOOT + EWX_FORCE
      Case "poweroff"
        iCMD = EWX_POWEROFF
      Case "poweroff_force"
        iCMD = EWX_POWEROFF + EWX_FORCE
      Case "hybernate"
        On Error Resume Next
        Set objShell = CreateObject("Wscript.Shell")
        objShell.Run "%windir%\System32\rundll32.exe PowrProf.dll,SetSuspendState"
        self.Close
        exit sub
      Case Else      ' Default value
        iCMD = EWX_POWEROFF
    End Select
  Next
  oOS.Win32shutdown cint(iCmd),cint(0)
End Sub

#pragma pack(4)
struct MyCppType
{
    short iVal;
    double dVal;
    BSTR bstr;
};
#pragma pack()
void _stdcall MyDllFunction (array of MyCppType)
{
  //do something with the array  	
}

LIBRARY	"MyTestDll"
EXPORTS
MyDllFunction	@1

Option Explicit
Declare Sub MyDllFunction Lib "MyTestDLL.dll" (arr() As MyVbaType)
Type MyVbaType
    iVal As Integer
    dVal As Double
    sVal As String
End Type
Sub Test()
    Dim arr(2) As MyVbaType
    
    arr(1).iVal = 1
    arr(1).dVal = 1.1
    arr(1).sVal = "one"
    
    arr(2).iVal = 2
    arr(2).dVal = 2.2
    arr(2).sVal = "two"
    
    MyDllFunction (arr)    
End Sub