VERSION 5.00
Begin VB.Form frmSendPacket 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "FookIT! :: Send Packets"
   ClientHeight    =   1680
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6135
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1680
   ScaleWidth      =   6135
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdSendServer 
      Caption         =   "Server"
      Height          =   255
      Left            =   4800
      TabIndex        =   5
      Top             =   1320
      Width           =   1215
   End
   Begin VB.CommandButton cmdSendClient 
      Caption         =   "Client"
      Height          =   255
      Left            =   3480
      TabIndex        =   4
      Top             =   1320
      Width           =   1215
   End
   Begin VB.CommandButton cmdInsertChr 
      Caption         =   "Insert"
      Height          =   255
      Left            =   2160
      TabIndex        =   3
      Top             =   1320
      Width           =   1215
   End
   Begin VB.TextBox txtInsertChr 
      Appearance      =   0  'Flat
      BackColor       =   &H8000000F&
      BorderStyle     =   0  'None
      Height          =   285
      Left            =   1560
      TabIndex        =   2
      Text            =   "01"
      Top             =   1320
      Width           =   495
   End
   Begin VB.TextBox txtSendPacket 
      Appearance      =   0  'Flat
      Height          =   1095
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   5895
   End
   Begin VB.Label lblInsertChr 
      Caption         =   "Insert custom chr"
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   1320
      Width           =   1695
   End
End
Attribute VB_Name = "frmSendPacket"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdInsertChr_Click()
' Insert a custom chr.
frmSendPacket.txtSendPacket.SelText = Chr(frmSendPacket.txtInsertChr.Text)
End Sub

Private Sub cmdSendClient_Click()
' Send packet CLIENT
frmMain.sckClient.SendData txtSendPacket.Text & Chr(1)
End Sub

Private Sub cmdSendServer_Click()
' Send packet SERVER
SendData frmMain.sckServer, txtSendPacket.Text
End Sub