1. Si lei lo que dijistes tranquilo jaja,el caso es que no e mirado como se escribe,  en vscript Inicio y Fin .Tengo que mirarlo ahora mismo ,lo siento  

.SendKeys "{HOME}"

.SendKeys "{END}"

3.Pues que ejecute tu vscript y tuve que toquetearlo un poco para que se ejecutara ,no quiero ofenderte ni nada no me malintepretes jaja  ,muchas gracias.

puedo poner una pregunta tipo if como la tengo pero en vez de Si o no ,que ponga Disminuir Aumentar.Seria lo ideal,hombre ya se que seguro que se puede mejorar,pero a mi con que funcione,contento  .

' Determino si se debe incrementar la velocidad, con una simple operación: CBool((6 o 7) - 7)
IncreaseSpeed = CBool(MsgBox("'SI' para aumentar, 'NO' para disminuir.", vbYesNo, "Velocidad del ratón...") - vbNo)
 
Sub MousePanelSendkeys()
	' Aquí las instrucciones que tienes para abrir el panel del mouse y tal...
	' Y cuando llegues a la instrucción de enviar la tecla 'FIN' o 'INICIO':
 
	If IncreaseSpeed Then 
		.SendKeys "{END}" ' Incrementar velocidad.
	Else 
		.SendKeys "{HOME}" ' Disminuir velocidad.
	End If
 
    ' Aquí el resto de instrucciones para cerrar el panel y tal...
 
End Sub

Value of type 'System.Collections.Generic.List(Of Integer)' cannot be converted to 'String'.

    ListBox1.Items.Add(String.Join(", ",
                                   From value As Integer In comb
                                   Select If(CStr(value).Length = 1I,
                                             CStr(value).Insert(0I, "0"),
                                             CStr(value))))

            For Num As Integer = IndexCounter To (FixedValues.Count) Step NumStep
 
                LenCounter += 1I
                Combo.Add(FixedValues(Num - 1I))
 
                If LenCounter >= NumLen Then
                    Exit For
                End If
 
            Next Num