OLECompleteDrag Example for Visual Basic

Private Sub LEADRasterView2_OLECompleteDrag(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
   Dim str As String

   str = "LEADRasterView2: OLE Complete Drag at pos X = " + CStr(x) + " and pos y = " + CStr(y)
   MsgBox str
End Sub

Private Sub LEADRasterView2_OLEDragOver(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
   Dim str As String

   str = "LEADRasterView2: OLE Drag Over at pos X = " + CStr(x) + " and pos y = " + CStr(y)
   MsgBox str
End Sub

Private Sub LEADRasterView2_OLEStartDrag(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
   Dim str As String

   str = "LEADRasterView2: OLE Start Drag at pos X = " + CStr(x) + " and pos y = " + CStr(y)
   MsgBox str
End Sub