EnableOLEDragMethod Example for Visual Basic

Public RasterIO As LEADRasterIO

Private Sub StartDrag_Click()
   Set RasterIO = New LEADRasterIO
   RasterIO.Load LEADRasterView2.Raster, "v:\images\image1.cmp", 0, 1, -1

   LEADRasterView1.EnableOLEDragMethod = True
   LEADRasterView2.EnableOLEDragMethod = True

   LEADRasterView1.OLEDragCursor = Me.MouseIcon
   LEADRasterView2.OLEDragCursor = Me.MouseIcon
End Sub

Private Sub StopDrag_Click()
   LEADRasterView1.EnableOLEDragMethod = False
   LEADRasterView2.EnableOLEDragMethod = False
End Sub

Private Sub LEADRasterView1_OLEGiveFeedback()
   LEADRasterView1.EnableUseDefaultCursor = False
End Sub

Private Sub LEADRasterView2_OLEGiveFeedback()
   LEADRasterView2.EnableUseDefaultCursor = False
End Sub