Estimado ENTER
Simplemente haz borrado el operador de suma (+), tú estas colocando ucItem1(Index).Width 15 cuando debe ser ucItem1(Index).Width + 15
Private Sub ShowTip(Index As Integer)
Dim y As Long
With ucToolTip1
If .IsRunning Then Exit Sub
.TitleText = ucItem1(Index).Nombre
.TipText = ucItem1(Index).TextoTips
y = 120
.ShowAtPos ucItem1(Index).hWnd, ucItem1(Index).Width + 15, y
End With
End Sub
Saludos, desde algún lugar de Lima- Perú