Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) OLEDrag End Sub Private Sub Form_OLEStartDrag(Data As DataObject, AllowedEffects As Long) Data.Clear Data.SetData , 15 Data.Files.Add "C:" AllowedEffects = 3 End Sub