home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.1#0"; "RICHTX32.OCX"
- Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
- Begin VB.Form Internet_Transfer
- Caption = "Internet Transfer Control"
- ClientHeight = 4755
- ClientLeft = 60
- ClientTop = 345
- ClientWidth = 6750
- LinkTopic = "Form1"
- ScaleHeight = 4755
- ScaleWidth = 6750
- StartUpPosition = 3 'Windows Default
- Begin RichTextLib.RichTextBox RichTextBox1
- Height = 3735
- Left = 180
- TabIndex = 4
- Top = 180
- Width = 6435
- _ExtentX = 11351
- _ExtentY = 6588
- _Version = 327680
- Enabled = -1 'True
- TextRTF = $"Internet_Transfer.frx":0000
- End
- Begin VB.CommandButton Command4
- Caption = "Cancel"
- Height = 495
- Left = 4800
- TabIndex = 3
- Top = 4140
- Width = 1215
- End
- Begin VB.CommandButton Command3
- Caption = "FTP"
- Height = 495
- Left = 3420
- TabIndex = 2
- Top = 4140
- Width = 1215
- End
- Begin VB.CommandButton Command2
- Caption = "GetHeader"
- Height = 495
- Left = 2040
- TabIndex = 1
- Top = 4140
- Width = 1215
- End
- Begin VB.CommandButton Command1
- Caption = "OpenURL"
- Height = 495
- Left = 660
- TabIndex = 0
- Top = 4140
- Width = 1215
- End
- Begin InetCtlsObjects.Inet Inet1
- Left = 6120
- Top = 4080
- _ExtentX = 1005
- _ExtentY = 1005
- End
- Attribute VB_Name = "Internet_Transfer"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- Private Sub Command1_Click()
- RichTextBox1.Text = Inet1.OpenURL("http://www.microsoft.com")
- End Sub
- Private Sub Command2_Click()
- RichTextBox1.Text = Inet1.OpenURL("http://www.microsoft.com")
- RichTextBox1.Text = Inet1.GetHeader
- End Sub
- Private Sub Command3_Click()
- RichTextBox1.Text = Inet1.OpenURL("ftp://ftp.microsoft.com/disclaimer.txt")
- End Sub
- Private Sub Command4_Click()
- Inet1.Cancel
- End Sub
-