VERSION 5.00
Begin VB.Form frmICC_Connection 
  
 BorderStyle     =   0  'None
 
  Caption         =   "Connection Status"
  
 ClientHeight    =   1845
  
 ClientLeft      =   6570
  
 ClientTop       =   3975
   
ClientWidth     =   4050
 
  LinkTopic       =   "Form1"

   MaxButton       =   0   'False
  
 MinButton       =   0   'False
  
 ScaleHeight     =   1845
  
 ScaleWidth      =   4050
  
 ShowInTaskbar   =   0   'False
  
 Begin VB.PictureBox picClose 
     
 Appearance      =   0  'Flat
      
AutoSize        =   -1  'True
      
BackColor       =   &H80000005&
   
   BorderStyle     =   0  'None
    
  ForeColor       =   &H80000008&
     
 Height          =   270
     
 Left            =   3600
     
 Picture         =   "Netscape_frmICC_Connection.frx":0000
   
   ScaleHeight     =   270
   
   ScaleWidth      =   270
      
TabIndex        =   5
    
  Top             =   60
    
  Width           =   270
  
 End
  
 Begin VB.PictureBox picWorkArea 
     
 BackColor       =   &H00CCCCCC&
    
  Height          =   1335
     
 Left            =   135
     
 ScaleHeight     =   1275
    
  ScaleWidth      =   3690
     
 TabIndex        =   2
     
 Top             =   360
    
  Width           =   3750
   
   Begin Threed.SSCommand cmdCancel 
    
     Cancel          =   -1  'True
        
 Height          =   375
        
 Left            =   2595
     
    TabIndex        =   3
       
  Top             =   825
       
  Width           =   1005
      
   _ExtentX        =   1773
        
 _ExtentY        =   661
       
  _Version        =   196610
       
  BackColor       =   14737632
      
   BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
 
           Name            =   "Tahoma"
          
  Size            =   8.25
       
     Charset         =   0
         
   Weight          =   700
          
  Underline       =   0   'False
          
  Italic          =   0   'False
       
     Strikethrough   =   0   'False
     
    EndProperty
   
      Caption         =   "Cancel"
     
    ButtonStyle     =   1
   
   End
    
  Begin VB.Label lblStatus 
   
      BackStyle       =   0  'Transparent
     
    Caption         =   "Connecting ..."
      
   BeginProperty Font 
          
  Name            =   "Tahoma"
      
      Size            =   8.25
       
     Charset         =   0
          
  Weight          =   700
        
    Underline       =   0   'False
       
     Italic          =   0   'False
        
    Strikethrough   =   0   'False
       
  EndProperty
       
  Height          =   720
    
     Left            =   1365
       
  TabIndex        =   4
     
    Top             =   165
      
   Width           =   2220
    
  End
 
     Begin VB.Image imgStatus 
     
    Height          =   855
       
  Left            =   120
        
 Picture         =   "Netscape_frmICC_Connection.frx":0554
      
   Top             =   240
      
   Width           =   1125
   
   End
    
  Begin VB.Label lblTitle 
   
   BackStyle       =   0  'Transparent
   
   Caption         =   "Connecting ..."
     
 BeginProperty Font 
   
      Name            =   "Tahoma"
    
     Size            =   8.25
        
 Charset         =   0
        
 Weight          =   700
     
    Underline       =   0   'False
  
       Italic          =   0   'False
       
  Strikethrough   =   0   'False
   
   EndProperty
  
    ForeColor       =   &H00FFFFFF&
   
   Height          =   225
 
     Left            =   105
   
   TabIndex        =   1
  
    Top             =   90
  
    Width           =   1485
 
  End
 
  Begin VB.Label lblOuter 
    
  Appearance      =   0  'Flat
    
  BackColor       =   &H00955A00&
  
    BorderStyle     =   1  'Fixed Single
    
  ForeColor       =   &H80000008&
    
  Height          =   1845
    
  Left            =   0
   
   TabIndex        =   0
    
  Top             =   0
    
  Width           =   4050
 
  End

End
Attribute VB_Name = "frmICC_Connection"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False


Public Sub cmdCancel_Click()
    'MTI ERROR HANDLING CODE ADDED Ritesh

On Error GoTo cmdCancel_Click_err

  
  cmdCancel.Enabled = False
   
 
    lblStatus.Caption = cLang(TXT_DISCONNECTING).sString & "..."
  
  lblStatus.Refresh
   
 
    frmRas.uwDialer.Disconnect
  
  frmICC_Main.bCancel = True
 
   frmICC_Main.mbConnecting = False
   
 frmICC_Main.mbBusy = False
  
  Unload Me
  
  
Exit Sub
'MTI ERROR HANDLING CODE ADDED Ritesh

cmdCancel_Click_err:

    LogError Err.Number, Err.Description, "frmICC_Connection.cmdCancel_Click", True, OK_ONLY, ICC.Path & gsLOGO_FILE, cLang(TXT_OK).sString, cLang(TXT_CANCEL).sString, cLang(TXT_ERROR_UNEXPECTED).sString
  
   
End Sub



Private Sub Form_Load()

'MTI ERROR HANDLING CODE ADDED Ritesh

On Error GoTo Form_Load_err


 
   Call ICC_LoadSkins(ICC_CONNECTION)
    
Call ICC_SetupControls(ICC_CONNECTION)

    lblOuter.BackColor = ICC.Settings.FormColor
 
   picWorkArea.BackColor = ICC.Settings.FormWorkAreaColor

    
    Call ICC_LoadResources(ICC_CONNECTION)
 
   defWindowProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf WindowProc)
 
   
Exit Sub 
'MTI ERROR HANDLING CODE ADDED Ritesh

Form_Load_err:
   
 LogError Err.Number, Err.Description, "frmICC_Connection.Form_Load", True, OK_ONLY, ICC.Path & gsLOGO_FILE, cLang(TXT_OK).sString, cLang(TXT_CANCEL).sString, cLang(TXT_ERROR_UNEXPECTED).sString
 
    
End Sub


Private Sub Form_Unload(Cancel As Integer)
    'MTI ERROR HANDLING CODE ADDED Ritesh

On Error GoTo Form_Unload_err

 
   If defWindowProc Then
 
      Call SetWindowLong(Me.hwnd, GWL_WNDPROC, defWindowProc)
     
  defWindowProc = 0
  
  End If


Exit Sub
'MTI ERROR HANDLING CODE ADDED Ritesh

Form_Unload_err:
   
 LogError Err.Number, Err.Description, "frmICC_Connection.Form_Unload", True, OK_ONLY, ICC.Path & gsLOGO_FILE, cLang(TXT_OK).sString, cLang(TXT_CANCEL).sString, cLang(TXT_ERROR_UNEXPECTED).sString
 
    
End Sub



Public Sub picClose_Click()


    cmdCancel_Click
  
  
    
End Sub


Private Sub picClose_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
   picClose.Picture = LoadPicture(Skin.SetCloseButtonDn)

End Sub


Private Sub picClose_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  
  picClose.Picture = LoadPicture(Skin.SetCloseButton)

End Sub