Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If (Not SendTxt.Visible) And (Not SendCMSTXT.Visible) Then

        '[CUSTOM KEYS]
        If LenB(CustomKeys.ReadableName(KeyCode)) > 0 Then

            Select Case KeyCode

                Case CustomKeys.BindedKey(eKeyType.mKeyToggleMusic)

                    If Not Audio.PlayingMusic Then
                        Audio.MusicActivated = True
                        Audio.PlayMIDI CStr(currentMidi) & ".mid"
                    Else
                        Audio.MusicActivated = False
                        Audio.StopMidi

                    End If

                Case CustomKeys.BindedKey(eKeyType.mKeyGetObject)
                    Call AgarrarItem

                Case CustomKeys.BindedKey(eKeyType.mKeyEquipObject)
                    Call EquiparItem

                Case CustomKeys.BindedKey(eKeyType.mKeyToggleNames)
                    Nombres = Not Nombres

                Case CustomKeys.BindedKey(eKeyType.mKeyTamAnimal)
                    Call SendData("UK" & Domar)

                Case CustomKeys.BindedKey(eKeyType.mKeySteal)
                    Call SendData("UK" & Robar)

                Case CustomKeys.BindedKey(eKeyType.mKeyToggleSafeMode)
                    Call SendData("/SEG")

                Case CustomKeys.BindedKey(eKeyType.mKeySafeGuild)
                    Call SendData("/SEGCLAN")

                Case CustomKeys.BindedKey(eKeyType.mKeyCombate)
                    Call SendData("/SEGCMBT")

                Case CustomKeys.BindedKey(eKeyType.mKeyObjetos)
                    Call SendData("/SEGOBJT")

                Case CustomKeys.BindedKey(eKeyType.mKeyHechizos)
                    Call SendData("/SEGHZS")

                Case vbKeyZ:
                    frmMain.RecTxt.Text = vbNullString

                Case CustomKeys.BindedKey(eKeyType.mKeyHide)
                    Call SendData("UK" & Ocultarse)

                Case CustomKeys.BindedKey(eKeyType.mKeyDropObject)
                    Call TirarItem

                Case CustomKeys.BindedKey(eKeyType.mKeyUseObject)

                    If Not NoPuedeUsar Then
                        NoPuedeUsar = True
                        Call UsarItem

                    End If

                Case vbKeyP:

                    If Not NoPuedeUsar Then
                        NoPuedeUsar = True
                        Call UsarItem

                    End If

                Case CustomKeys.BindedKey(eKeyType.mKeyRequestRefresh)

                    If UserPuedeRefrescar Then
                        Call SendData("RPU")
                        UserPuedeRefrescar = False
                        Beep

                    End If

            End Select

        End If

    End If

    Select Case KeyCode

        Case CustomKeys.BindedKey(eKeyType.mKeyOnline)
            Call SendData("/ONLINE")

        Case CustomKeys.BindedKey(eKeyType.mKeyExitGame)
            Call SendData("/SALIR")

        Case CustomKeys.BindedKey(eKeyType.mKeyAttack)

            If SendTxt.Visible Then Exit Sub
            If (Not UserDescansar) And (Not UserMeditar) Then
                SendData "KC"

            End If

        Case CustomKeys.BindedKey(eKeyType.mKeyWorkMacro)

            If Timer1.Enabled = True Then
                Call AddtoRichTextBox(frmMain.RecTxt, "Macro herramientas desactivado!", 255, 255, 255, False, False, False)
                Timer1.Enabled = False
                Exit Sub

            End If

            If Not Inventario.ObjType(Inventario.SelectedItem) = 18 Then
                Call AddtoRichTextBox(frmMain.RecTxt, "Debes tener seleccionada la herramienta!", 255, 255, 255, False, False, False)
                Exit Sub

            End If

            If Inventario.Equipped(Inventario.SelectedItem) = False Then
                Call AddtoRichTextBox(frmMain.RecTxt, "Debes equiparte la herramienta!", 255, 255, 255, False, False, False)
                Exit Sub

            End If

            If Timer1.Enabled = False Then
                Timer1.Enabled = True
                Call AddtoRichTextBox(frmMain.RecTxt, "Macro herramientas activado!", 255, 255, 255, False, False, False)
            Else
                Timer1.Enabled = False
                Call AddtoRichTextBox(frmMain.RecTxt, "Macro herramientas desactivado!", 255, 255, 255, False, False, False)

            End If

        Case CustomKeys.BindedKey(eKeyType.mKeyShowOptions)
            Call frmOpciones.Show(, frmMain)

        Case CustomKeys.BindedKey(eKeyType.mKeyToggleMAPA)
            Call frmMapa.Show(, frmMain)

        Case CustomKeys.BindedKey(eKeyType.mKeyBank)
            Call SendData("/BOVEDA")

        Case CustomKeys.BindedKey(eKeyType.mKeyMeditate)
            Call SendData("/MEDITAR")

        Case CustomKeys.BindedKey(eKeyType.mKeyTrade)
            Call SendData("/COMERCIAR")

        Case CustomKeys.BindedKey(eKeyType.mKeyTakeScreenShot)
            Dim x As Long
            Foto.Area = Ventana
            Foto.Captura

            For x = 1 To 1000

                If Not FileExist(DirFotos & x & ".jpg", vbNormal) Then Exit For
            Next
            Call Convertir(Foto.Imagen, DirFotos & x & ".jpg")
            Call AddtoRichTextBox(frmMain.RecTxt, "Imagen Guardada Como " & DirFotos & x & ".jpg", 255, 255, 255, False, False, False)

    End Select

    Select Case KeyCode

        Case CustomKeys.BindedKey(eKeyType.mKeyTalkGuild)

            If SendTxt.Visible Then Exit Sub

            If Not Comerciando And Not frmCantidad.Visible Then
                SendCMSTXT.Visible = True
                SendCMSTXT.SetFocus

            End If

        Case CustomKeys.BindedKey(eKeyType.mKeyTalk)

            If SendCMSTXT.Visible Then Exit Sub

            If Not Comerciando And Not frmCantidad.Visible Then
                SendTxt.Visible = True
                SendTxt.SetFocus

            End If

    End Select

End Sub