StartDrag non reconnu en VB

Bonjour à tous,
je cherche actuellement à transformer un UserForm VBA (crée sous excel) en VB6 afin de génrer un .exe.
J'ai des listbox avec un système de drag and drop. Je n'arrive à pas le compiler sous VB car il ne me reconnait pasdeux portions de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single) Dim MyDataObject As DataObject If ListBox1.Value <> "" Then If Button = 1 Then Set MyDataObject = .New DataObject Dim Effect As Integer MyDataObject..SetText ListBox1.Value Effect = MyDataObject.StartDrag End If End If End Sub

---

Il plante sur new dataObject et sur Startdrag et Settext.
La référence et le composant FM20.dll ont bien été insérés sous vb.

Auriez une idée pour contourner ce problème ?

Merci
Et bonne fin de week end.

l'utilisation de l'explorateur d'objet par F2 t'aurais permis de voir qu'il existe dans ton projet plusieurs type d'object au même nom "DataObject" ...

pré-fixe tes utilisations de cet objet par le nom de ta bibliothèque :

Code:

---

Set MyDataObject = New MSFORMS.DataObject

---

je comprends pas pourquoi ton code comporte plusieurs objets dont le nom commence par un point . , te manque-t'il pas un with ..?


;)

Hello,
merci pour l'information je vais tester.
VBA ne faisant pas d'erreur de prog, je ne pensais qu'il existe plusieurs types de dataobject.
Concernant les doubles points, il n'y a pas de with mais il s'agit tout simplement d'une erreur lors de la copie du code sur le site (j'ai testé quelles étaient les méthodes et propriétés disponibles sous VB6).

Encore Merci