Sub Main()
    Dim rVal As Long, nUDTPtr As Long
    Dim jn As Integer
    Dim nDrive As Integer
 
    'Zeiger auf UDT-Array
    nUDTPtr = VarPtr(mySCSI_Info(0))
 
    ' WNASPI32.DLL initialisieren
    rVal = InitializeDLL()
    If rVal = 0 Then
       MsgBox "WNASPI32.DLL not present or no SCSI Host Adapters found!", _
         vbCritical, "Abbruch"
       Exit Sub
    End If
 
    ' // scan SCSI Bus for Disk drives and store Disk Drive(s) information and 
    ' amoun of Disk Drives
    ' // also prevent medium removal for all found disk devices
    amount_of_Disk_Devices = ScanSCSI(nUDTPtr, True)
 
    ' // If no Disk Devices were found exit.......
    If amount_of_Disk_Devices = 0 Then
         MsgBox "No SCSI Disk Drives found!", vbExclamation, "Abbruch"
         Exit Sub
    End If
 
    show_devices
 
    ' Im nachfolgenden wird gefragt, ob man eine Image erstellen
    ' will oder eine Image speichern will.
    jn = MsgBox("Wollen Sie eine Image erstellen oder eine Image speichern. " & _
      String(2, vbCrLf) & _
                "Drücken Sie  wenn Sie eine Image erstellen wollen." & vbCrLf & _
                "Drücken Sie  wenn Sie eine Image speichern wollen." & vbCrLf & _
                "Drücken Sie  wenn Sie die Aktion abbrechen wollen", vbQuestion _
                + vbYesNoCancel, "Frage:")
    If jn = vbCancel Then Exit Sub
 
    If jn = vbYes Then 'Image erstellen
       nDrive = InputBox("Bitte geben Sie die Nummer des Laufwerks ein:", _
         "Laufwerkauswahl")
       If nDrive < 0 Or nDrive > amount_of_Disk_Devices Then Exit Sub
 
       ' Im nachfolgenden ist ein Pfad "hardgecodet"
       MakeImage nUDTPtr, nDrive, "C:	est.sdi"
    End If
 
    If jn = vbNo Then 'Image in Drive speichern
       nDrive = InputBox("Bitte die Nummer des Laufwerks an.", "Dateiangabe" & _
         "erwartet")
       If nDrive < 0 Or nDrive > amount_of_Disk_Devices Then Exit Sub
       StoreImage nUDTPtr, nDrive, "C:	est.sdi"
    End If
End Sub