In your BAS file write this: 
  
  Attribute VB_Name = "HardwareIDExtractor" Public Declare Function GetIDESerialNumber 
                      Lib "HardwareIDExtractorC.DLL" (ByVal DriveNumber As Byte) As String
  
  
 
  
  In your FRM file write something like this:
  
  VERSION 5.00
  Begin VB.Form Form1
  Your form code here...
  bla bla bla...
  End
  
  
  Private Sub Command1_Click()
  Dim DriveNumber As Byte
  DriveNumber = 0
  Text1.Text = GetIDESerialNumber(DriveNumber)
  End Sub