Je sais je le repete encore une fois mais je trouve pas comment faire

Je dois concevoir une application où je dois faire un dragdrop d'un email de outlook a vb, maintenant je ne sais pas comment faire pour appliquer cet objet (Data)à mon objet EmailItem :

Dim appOutlook As New Outlook.Application
Dim EmailItem As Outlook.MailItem
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub
Merci de vos réponse