hWnd (AnnToolbar) example for Visual Basic

Private Sub LEAD1_AnnToolDestroy()
   Dim iTool As Integer
   Dim x As Long
   MsgBox "Toolbar has been destroyed!"
   If (LEAD1.AnnToolbar.hWnd = 0) Then LEAD1.AnnToolbar.Create 0, 0, 0
   iTool = LEAD1.AnnToolbar.Tool
End Sub