home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Habbo_Whac19512011262005.psc / Form1.frm < prev    next >
Text File  |  2002-01-01  |  4KB  |  124 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00000040&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Send Packets Client/Server"
  6.    ClientHeight    =   2820
  7.    ClientLeft      =   45
  8.    ClientTop       =   435
  9.    ClientWidth     =   4680
  10.    Icon            =   "Form1.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2820
  15.    ScaleWidth      =   4680
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.TextBox Text1 
  18.       Appearance      =   0  'Flat
  19.       Height          =   2175
  20.       Left            =   120
  21.       MultiLine       =   -1  'True
  22.       TabIndex        =   0
  23.       Top             =   120
  24.       Width           =   4455
  25.    End
  26.    Begin VB.Shape Shape2 
  27.       BorderColor     =   &H000000FF&
  28.       Height          =   195
  29.       Left            =   1900
  30.       Top             =   2520
  31.       Width           =   855
  32.    End
  33.    Begin VB.Label Label2 
  34.       Alignment       =   2  'Center
  35.       BackStyle       =   0  'Transparent
  36.       Caption         =   "Reset"
  37.       BeginProperty Font 
  38.          Name            =   "Times New Roman"
  39.          Size            =   8.25
  40.          Charset         =   0
  41.          Weight          =   400
  42.          Underline       =   0   'False
  43.          Italic          =   0   'False
  44.          Strikethrough   =   0   'False
  45.       EndProperty
  46.       ForeColor       =   &H000000FF&
  47.       Height          =   255
  48.       Left            =   1900
  49.       TabIndex        =   3
  50.       Top             =   2520
  51.       Width           =   855
  52.    End
  53.    Begin VB.Shape Shape1 
  54.       BorderColor     =   &H000000FF&
  55.       Height          =   195
  56.       Left            =   3120
  57.       Top             =   2520
  58.       Width           =   1335
  59.    End
  60.    Begin VB.Label Label1 
  61.       Alignment       =   2  'Center
  62.       BackStyle       =   0  'Transparent
  63.       Caption         =   "Send to Server"
  64.       BeginProperty Font 
  65.          Name            =   "Times New Roman"
  66.          Size            =   8.25
  67.          Charset         =   0
  68.          Weight          =   400
  69.          Underline       =   0   'False
  70.          Italic          =   0   'False
  71.          Strikethrough   =   0   'False
  72.       EndProperty
  73.       ForeColor       =   &H000000FF&
  74.       Height          =   255
  75.       Left            =   3120
  76.       TabIndex        =   2
  77.       Top             =   2520
  78.       Width           =   1335
  79.    End
  80.    Begin VB.Shape Shape5 
  81.       BorderColor     =   &H000000FF&
  82.       Height          =   195
  83.       Left            =   240
  84.       Top             =   2520
  85.       Width           =   1335
  86.    End
  87.    Begin VB.Label Label4 
  88.       Alignment       =   2  'Center
  89.       BackStyle       =   0  'Transparent
  90.       Caption         =   "Send to Client"
  91.       BeginProperty Font 
  92.          Name            =   "Times New Roman"
  93.          Size            =   8.25
  94.          Charset         =   0
  95.          Weight          =   400
  96.          Underline       =   0   'False
  97.          Italic          =   0   'False
  98.          Strikethrough   =   0   'False
  99.       EndProperty
  100.       ForeColor       =   &H000000FF&
  101.       Height          =   255
  102.       Left            =   240
  103.       TabIndex        =   1
  104.       Top             =   2520
  105.       Width           =   1335
  106.    End
  107. End
  108. Attribute VB_Name = "Form1"
  109. Attribute VB_GlobalNameSpace = False
  110. Attribute VB_Creatable = False
  111. Attribute VB_PredeclaredId = True
  112. Attribute VB_Exposed = False
  113. Private Sub Label1_Click()
  114. frmMain.sckServer.SendData Text1.Text
  115. End Sub
  116.  
  117. Private Sub Label2_Click()
  118. Text1.Text = ""
  119. End Sub
  120.  
  121. Private Sub Label4_Click()
  122. frmMain.sckClient.SendData Text1.Text
  123. End Sub
  124.