Drag/Drop ikoner til program

noget i den stil..

'---------------------------- Form1 ----------------------------
Option Explicit

Private Sub Form_Load()
  Me.OLEDropMode = 1
End Sub

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
Dim strPath As String
  With Data
      If .GetFormat(vbCFFiles) Then
        For i = 1 To .Files.Count
          strPath = .Files(i)
          Select Case LCase$(Right$(strPath, 3))
                Case "gif", "jpg", "bmp"
                  MsgBox strPath
          End Select
        Next
      End If
  End With
End Sub
'---------------------------- Form1 ----------------------------

Jeg fik det aldrig til at virke