½¨ Á¢ Ò» ¸ö ¹¤ ³Ì £¬ ½« FormµÄ OLEDragModeÉè ÖÃ Îª 1¡£ È» ºó Êä Èë ÒÔ ÏÂ ´ú Âë £º 
    Option Explicit 
    Const SWP_NOSIZE = &H1 
    Const SWP_NOMOVE = &H2 
    Const HWND_TOPMOST = -1 
    Const SWP_SHOWWINDOW = &H40 
     
    Private Declare Function SetWindowPos Lib _ 
     "user32" (ByVal hwnd As Long, _ 
     ByVal hWndInsertAfter As Long, ByVal X As Long, _ 
     ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, _ 
     ByVal wFlags As Long) As Long 
     
    ' Ê¹ ÓÃ SetWindowPos½« ´° ¿Ú Éè ÖÃ Îª ×Ü ÔÚ ×î Ç° Ãæ £º 
    Private Sub Form_Load() 
     SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _ 
     SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW 
    End Sub 
     
    ' ½Ó ÊÕ Êý ¾Ý 
    Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) 
     MsgBox Data.GetData(vbCFText) 
    End Sub 
<END>     

    