Ayuda urgente!! VISUAL BASIC

[Laika]

Hola amigos,

Quiero que un boton de comando cambie de colores. Lo que estoy haciendo es cambiarle los colores en la propiedad backcolor del boton de comando pero no me funciona.

¿Me podeis ayudar? ¿Algun ejemplo que os funcione?

Gracias
Laika

[compaq]

Inserta dos formularios y pon este codPrivate Sub Form_Load()

1º Pones

' Move the form to the bottom right
' corner of the screen
Me.Left = Screen.Width - Me.Width
Me.Top = Screen.Height - Me.Height

' Make the picture box take up the entire form
picZoom.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight

' Initialize the zooming functions
Call LoadSettings

End Sub

Private Sub tmrZoom_Timer()

Dim lRet As Long
Dim ptMouse As PointAPI

Static lElapsed As Long

If Me.WindowState <> vbMinimized Then
'This code runs 20 times/second*, while the form is not minimized.
lElapsed = lElapsed + tmrZoom.Interval
lRet = GetCursorPos(ptMouse)
With ptMouse
If (.X <> mlOldX) Or (.Y <> mlOldY) Or (lElapsed >= 250) Then
'This code runs runs 4 times/second* if no mousemove,
'or 20 times/second* when mouse is moving.
Call DoZoom(ptMouse)
If lElapsed >= 250 Then
'This code only runs 4 times/second*.
lRet = SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_FLAGS)
End If
lElapsed = 0
End If
mlOldX = .X
mlOldY = .Y
End With
End If

'* Times/second depends on processor speed. A slower processor may not
'finish processing one timer event before the next arrives, in which
'case the new event will be discarded.

End Sub

2º form

' Color Spy Example
' By Chetan Sarva ([email protected]), May 2000
' - Original by Plastik ([email protected])
' - Zoom by Rocky Clark

Option Explicit

'declares
Private Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long)

[REVN]

Estas en lo correcto Laika, pero te falto
cambiar la propiedad Style a 1 - Graphical.
;)

[tigereye]

Ya te contesto mi amigo e idolo REVN Laika:
Tienes que ponerle la propiedad style en el valor 1-Graphical a tu boton de comando,
Suerte!