Private Sub Label1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, y As Single)

    Dim Nick As String

    If Not InStr(charlist(FrmMain.CharFichado).Nombre, "<") > 0 Then
        Nick = charlist(FrmMain.CharFichado).Nombre
    Else
        Nick = Left$(charlist(FrmMain.CharFichado).Nombre, InStr(charlist(FrmMain.CharFichado).Nombre, " <"))
    End If

    If Index = 0 Then

        Call WriteRequestCharInfo(RTrim(Nick))

    ElseIf Index = 1 Then

        Call WriteRequestCharInventory(RTrim(Nick))

    ElseIf Index = 2 Then

        Call WriteRequestCharBank(RTrim(Nick))

    ElseIf Index = 3 Then

        Call WriteWarpChar(RTrim(Nick), 1, 50, 50)

    ElseIf Index = 4 Then

        Call WriteKick(RTrim(Nick))

    ElseIf Index = 5 Then

        Unload Me

    ElseIf Index = 6 Then

        tStr = InputBox("Escriba el motivo de la advertencia.", "Advertir a " & RTrim(Nick))
        Call ParseUserCommand("/ADVERTENCIA " & RTrim(Nick) & "@" & tStr)

    ElseIf Index = 7 Then

        tStr = InputBox("Escriba el motivo de la pena.", "Carcel a " & RTrim(Nick))
        tStr = tStr & "@" & InputBox("Indique el tiempo de condena (entre 0 y 60 minutos).", "Carcel a " & Nick)
        Call ParseUserCommand("/CARCEL " & RTrim(Nick) & "@" & tStr)

    ElseIf Index = 8 Then

        Call WriteExecute(RTrim(Nick))

    ElseIf Index = 9 Then

        tStr = InputBox("Escriba el motivo del ban.", "BAN a " & RTrim(Nick))
        If MsgBox("¿Seguro desea banear a " & RTrim(Nick) & "?", vbYesNo, "Atencion!") = vbYes Then Call WriteBanChar(RTrim(Nick), tStr)

    ElseIf Index = 10 Then

        If MsgBox("¿Seguro desea banear el disco a " & RTrim(Nick) & "?", vbYesNo, "Atencion!") = vbYes Then Call WriteBanHD(RTrim(Nick))

    ElseIf Index = 11 Then

        Call WriteReviveChar(RTrim(Nick))

    End If

    Unload Me

End Sub