Option Explicit
 
' API Funktion für den FileDownload
Private Declare Function DoFileDownload Lib "shdocvw.dll" _
(ByVal lpszFile As String) As Long
 
Private Sub Combo1_Click()
Dim myURL As String
 
 If Combo1.ListIndex = 0 Then
  ' Der Eintrag SkinSaugen hat den Index 0
  ' wie im Form_Load Event deklariert
  ' Als URL habe ich mal die lohnswerte
  ' VBEx32.DLL angegeben. Da kann natürlich jeder
  ' Dateilink stehen
  myURL = StrConv("http://www.visualbasic-archiv.de" & _
  "/include/count.php3?type=download&id=232", vbUnicode)
  DoFileDownload myURL
 End If
 
End Sub
 
Private Sub Form_Load()
 With Combo1
  .AddItem "Skin Saugen", 0
  .AddItem "Skin Sonstwas", 1
  .Text = ""
 End With
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 Unload Me
 Set Form1 = Nothing
End Sub