www.pudn.com > 020630_download.zip > frmFTPWinsockContainter.frm

VERSION 5.00 
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX" 
Begin VB.Form frmFTPWinsockContainter  
   Caption         =   "Form1" 
   ClientHeight    =   3195 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   4680 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   3195 
   ScaleWidth      =   4680 
   StartUpPosition =   3  'Windows Default 
   Begin MSWinsockLib.Winsock sckData  
      Left            =   1920 
      Top             =   840 
      _ExtentX        =   741 
      _ExtentY        =   741 
      _Version        =   393216 
   End 
   Begin MSWinsockLib.Winsock sckControl  
      Left            =   1320 
      Top             =   840 
      _ExtentX        =   741 
      _ExtentY        =   741 
      _Version        =   393216 
   End 
End 
Attribute VB_Name = "frmFTPWinsockContainter" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
 
Private Sub sckControl_Close() 
    If sckControl.State <> sckClosed Then 
        sckControl.Close 
    End If 
End Sub 
 
Private Sub sckData_Close() 
    If sckData.State <> sckClosed Then 
        sckData.Close 
    End If 
End Sub