Formulario (Contiene un ControlButton y un Timmer)

Option Explicit


'   Programa de ejemplo de como podemos rotar el texto
'   de un CommanButton. Uso un CommandButton para mostrar
'   que no solo se puede cambiar el texto de la barra de
'   titulo del formulario


Private Sub Command1_Click()
    Unload Me
End Sub


Private Sub Timer1_Timer()
    RotarTexto Command1
End Sub
		

Modulo (Implementado solo por claridad, podría ir en el formulario)

Option Explicit


Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" _
       (ByVal hWnd As Long) As Long
Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" _
       (ByVal hWnd As Long, ByVal lpString As String, ByVal nMaxCount As Long) As Long
Declare Function SetWindowText Lib "user32.dll" Alias "SetWindowTextA" _
       (ByVal hWnd As Long, ByVal lpString As String) As Long


Public Sub RotarTexto(Boton As CommandButton)
    Dim Longitud As Long    ' Longitud del texto del botón
    Dim Texto As String     ' Texto del botón
    Dim slength As Long     ' Longitud del contenido del texto del botón
    Dim retval As Long


    Longitud = GetWindowTextLength(Boton.hWnd) + 1
    '   Obtenemos la longitud del texto. Recordar que termina en un carácter nulo.
    Texto = Space(Longitud)
    '   Preparamos Texto para recibir todos los caracteres del texto
    slength = GetWindowText(Boton.hWnd, Texto, Longitud)
    '   Obtenemos el texto
    Texto = Mid(Texto, 2, slength - 1) & Left(Texto, 1)
    '   Pasamos el primer caracter del texto al final
    retval = SetWindowText(Boton.hWnd, Texto)
    '   Actualizamos el texto del botón
    '   Si se produce un error en retval tendremos un 0
End Sub