Command Button

Usted utiliza la herramienta Botón de comando para crear un objeto visible que el usuario puede elegir para realizar una tarea.


este pequeño  ejercicio ayudara a manejar el Command Button
si tiene alguna duda en el final esta la función de algunas lineas de codigo

1. Option Explicit  
2.   
3. ' -- Flag para que no se ejecute constantemente  
4. ' -- el código del Form y del CommandButton  
5. Dim Flag As Boolean  
6.   
7. Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)  
8.   
9.     ' -- Establecer la fuente del commandButton en negrita y con subrayado  
10.     If Flag Then  
11.         Command1.Font.Bold = True  
12.         Command1.Font.Underline = True  
13.         Command1.BackColor = codigo de color
14.         Flag = False  
15.     End If  
16.   
17. End Sub  
18.   
19. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)  
20.     ' -- Quita la negrita, el subrayado, y restaura el color de fondo  
21.     If Flag = False Then  
22.         Command1.Font.Bold = False  
23.         Command1.Font.Underline = False  
24.         Command1.BackColor = codigo  de color 
25.         Flag = True  
26.     End If  
27.   
28. End Sub  
29. 

Command1.BackColor= esto quiere decir que si quiere cambiar de color

Command1.Font.Bold= la fuente de negrita

 Command1.Font.Underline= fuentes surayadas