[Feature] Open/Close ChatBox

[skillzalot]

I don't know if it was your code or mine but every time txt.Text showed up I got Variable not defined so I changed all the txt.Text to txt.Chat and it installed properly so My code looks like this

Code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Call CheckInput(1, KeyCode, Shift)
    If KeyCode = vbKeyF1 Then
    frmAdminPanel.Visible = True
    End If
    If KeyCode = vbKeyReturn Then
        If txtChat.Visible = False Then
            txtChat.Visible = True
            txtChat.Visible = True
            txtMyChat.Visible = True
            SetFocusOnChat
        Else
            If txtMyChat.Text  vbNullString Then
                txtChat.Visible = True
                txtChat.Visible = True
                txtMyChat.Visible = True
                Exit Sub
            End If
            txtChat.Visible = False
            txtChat.Visible = False
            txtMyChat.Visible = False
        End If
    End If
End Sub

That is my whole Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)