Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If TextBox1.Text = "" And (Asc(e.KeyChar)) = 13 Then
MsgBox("Need to type something")
ElseIf TextBox1.Text = "/buy gun" Then
chatwin.Text = chatwin.Text & vbCrLf & "You have bought a Paintball gun for $150"
TextBox1.Clear()
ElseIf TextBox1.Text = "/buy tube" Then
chatwin.Text = chatwin.Text & vbCrLf & "You have bought a tube of paintballs for $30"
TextBox1.Clear()
ElseIf TextBox1.Text = "/wear gun" Then
chatwin.Text = chatwin.Text & vbCrLf & "You have put on" & gun
TextBox1.Clear()
ElseIf (Asc(e.KeyChar)) = 13 Then
chatwin.Text = chatwin.Text & vbCrLf & (UserName) & ":" & " " & TextBox1.Text
TextBox1.Clear()
End If
End Sub