VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "VBWebClass"
Attribute VB_Creatable = True
Attribute VB_Exposed = True
Attribute VB_Description = "Visual Basic Web Surfer"
Dim AddInItems As Object    'VBIDE.MenuItems
Dim DFDMenu As Object       'VBIDE.MenuLine
Dim ConnectID As Long


Sub AfterClick()
    webForm.Show
End Sub


'------------------------------------------------------
'this method adds the Add-In to the VB menu
'it is called by the VB addin manager
'------------------------------------------------------
Sub ConnectAddIn(VBInst As VBIDE.Application)

  splash.Show
  On Error GoTo error_handler
    
  Set gobjIDEAppInst = VBInst
  Set AddInItems = VBInst.AddInMenu.MenuItems
  Set DFDMenu = AddInItems.Add("&Surf The VB Online World...")
  ConnectID = DFDMenu.ConnectEvents(Me)
  loadPages
  Unload splash
 
Exit Sub
    
error_handler:
  MsgBox Err.Description
  Exit Sub
    
End Sub

'------------------------------------------------------
'this method removes the Add-In from the VB menu
'it is called by the VB addin manager
'------------------------------------------------------
Sub DisconnectAddIn(ByVal mode As Integer)

  'Disconnect the event handler
  DFDMenu.DisconnectEvents ConnectID
  
  'remove it from the menu
  AddInItems.Remove DFDMenu
End Sub


Private Sub Class_Terminate()


    For i = 0 To Forms.Count - 1
        Unload Forms(i)
    Next
    
End Sub


