ASPI Declaration:

Code:
DWORD __stdcall SendASPI32CommandEx(LPSRB psrb)
	{
                 // code
	}
VB Code:
  1. 'API Declaration

  2.     <DllImport("ASPIshim", EntryPoint:="SendASPI32CommandEx")> _

  3.     Public Function SendASPI32InquiryEx(ByVal hSRB As SRB_HAInquiry) As Integer

  4.     End Function

VB Code:
  1. 'Calling----->

  2.  
  3.         MsgBox(modASPI.GetASPI32SupportInfoEx())

  4.  
  5.         Dim y As New modASPI.SRB_HAInquiry

  6.  
  7.         MsgBox(modASPI.SendASPI32InquiryEx(y)) '<---- NullReference Occurs here