boton personalizado...

[MeGo85]

bueno aqui les dejo una manera breve de hacer un botón personalizado
...deben      agregar un label y una shape, la forma del shape se la dan ustedes, lo importante es que al agregar el
label, este quede dendro de el Shape, como si fueran un solo objeto, espero que me entiendan,
ponen la propiedad BackStyle del label a 0 - transparent, y la del Shape a 1 - Opaque,      es importante que el fondo
del Shape sea solido, para que podamos ver el cambio de colores,


Private Sub Form_Load ()
      Form1.BackColo r = vbBlack
      Label1 =      "MeGo"
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
            Shape1.BorderW idth = 1
            Shape1.BackCol or = vbBlack
            Label1.ForeCol or = vbWhite
End Sub

Private Sub Label1_MouseMo ve(Button As Integer, Shift As Integer, X As Single, Y As Single)
      Shape1.BackCol or = &HE0E0E0
      Shape1.BorderW idth = 3
      Label1.ForeCol or = vbBlack
End Sub
           

Ah....      al borde del Shape le pueden poner un color como verdesito por ejemplo, no se lo dejen negro porque entonces
no podran ver, el cambio que tiene el borde.

      Espero que les sea de alguna utilidad....
           

[ranefi]

    ¡Excelente! Muy útil tu consejo.     ¡Muchas gracias MeGo85!