VERSION 5.00
Begin VB.Form frmOptionz 
   BackColor       =   &H00C0C0C0&
   Caption         =   "Optionz"
   ClientHeight    =   4620
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   3210
   ForeColor       =   &H00000000&
   Icon            =   "frmOptionz.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   4620
   ScaleWidth      =   3210
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command2 
      Caption         =   "Hide"
      Height          =   255
      Left            =   840
      TabIndex        =   7
      Top             =   4320
      Width           =   1455
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "OK"
      Height          =   255
      Left            =   840
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   4080
      Width           =   1455
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00C0C0C0&
      Caption         =   "AutoKick"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   3975
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   3135
      Begin VB.CommandButton Command1 
         Caption         =   "Add"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2160
         TabIndex        =   6
         Top             =   3240
         Width           =   615
      End
      Begin VB.TextBox txtKickMessage 
         BackColor       =   &H00FFFFFF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   285
         Left            =   240
         TabIndex        =   4
         Text            =   "Your Kicked!"
         Top             =   3600
         Width           =   2655
      End
      Begin VB.TextBox txtAddProp 
         BackColor       =   &H00FFFFFF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   285
         Left            =   240
         TabIndex        =   3
         Top             =   2640
         Width           =   2655
      End
      Begin VB.ListBox lstAutokickPropsOptions 
         BackColor       =   &H00FFFFFF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   2220
         ItemData        =   "frmOptionz.frx":0CCA
         Left            =   240
         List            =   "frmOptionz.frx":0CCC
         TabIndex        =   2
         Top             =   240
         Width           =   2655
      End
      Begin VB.Label Label1 
         BackColor       =   &H00000000&
         BackStyle       =   0  'Transparent
         Caption         =   "Kick Message:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   240
         TabIndex        =   5
         Top             =   3360
         Width           =   1575
      End
   End
   Begin VB.Menu dfs 
      Caption         =   "Help Me"
   End
End
Attribute VB_Name = "frmOptionz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdOK_Click()
Dim i&
    Set LstOwner = New Collection
    Set LstShit = New Collection
    Set lstBoot = New Collection
    For i = 0 To lstAutokickPropsOptions.ListCount
        lstAutokickProps.Add lstAutokickPropsOptions.List(i)
    Next i
    
    AutoKickMessage$ = txtKickMessage
End Sub

Private Sub Command1_Click()
Open "C:\My Documents\Fate\WordKick.txt" For Append As #1
Print #1, txtAddProp.Text
Close #1
lstAutokickPropsOptions.AddItem txtAddProp.Text
txtAddProp.Text = ""
End Sub

Private Sub Command2_Click()
Me.Hide
End Sub

Private Sub dfs_Click()
MsgBox "Enter words that if someone says then it will kick them out With the Kick message.", vbOKOnly, "Help me"
End Sub

Private Sub txtAddProp_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then Call Command1_Click
End Sub
