BitmapDataPathClosed example for Visual Basic

Public BmpClosed As Boolean

Private Sub Command1_Click()
    BmpClosed = True
    LEAD1.BitmapDataPath = "http://www.leadtools.com/Home2/vertmkts/images/v13web.jpg"
    
    While BmpClosed
      DoEvents
    Wend
    
    LEAD1.BitmapDataPath = "http://www.leadtools.com/images/end-user.jpg"
End Sub

Private Sub LEAD1_BitmapDataPathClosed()
   BmpClosed = False
End Sub