Code:
Private Declare Function SendASPI32Command Lib "wnaspi32.dll" _(ByRef SRB_Stuff As SRB_Header) As Long



Private Type SRB_Header
    SRB_Cmd As Byte    'ASPI command code
    SRB_Status As Byte    'ASPI command status byte
    SRB_HaId As Byte    'ASPI host adapter number
    SRB_Flags As Byte    'ASPI request flags
    SRB_Hdr_Rsvd As Long    'Reserved, MUST = 0
End Type