Codigos1

Private Sub Aceptar_Click()
Dim Cadena_Mes As String, Mes As Integer
Mes = Val(TMes)
Select Case Mes
Case 1: Cadena_Mes = "enero "
Case 2: Cadena_Mes = "febrero "
Case 3: Cadena_Mes = "marzo "Case 4: Cadena_Mes = "abril "
Case 5: Cadena_Mes = "mayo "
Case 6: Cadena_Mes = "junio "
Case 7: Cadena_Mes = "julio "
Case 8: Cadena_Mes = "agosto "
Case 9: Cadena_Mes = "sepetiembre "
Case10: Cadena_Mes = "octubre "
Case 11: Cadena_Mes = "noviembre "
Case 12: Cadena_Mes = "diciembre "
Case Else
MsgBox "ese mes no existe", vbCritical, "mensaje"
Call Limpiar_Click
Exit Sub
EndSelect
Fecha = TDia & " de" & Cadena_Mes & " de" & TAño
End Sub

Private Sub Limpiar_Click()
TDia = "": TMes = "": TAño = ""
Fecha = ""
TDia.SetFocus
End Sub

Private SubSalir_Click()
End
End Sub

Private Sub Command1_Click()
Dim dia
dia = InputBox("ESCRIBE UN NUMERO DE LA SEMANA ")
Select Case dia
Case 1:
MsgBox ("El dia es LUNES")
Case 2:
MsgBox ("El diaes MARTES")
Case 3:
MsgBox ("El dia es MIERCOLES")
Case 4:
MsgBox ("El dia es JUEVES")
Case 5:
MsgBox ("El dia es VIERNES")
Case 6:
MsgBox ("El dia es SABADO")
Case 7:
MsgBox("El dia es DOMINGO")
Case Else:
MsgBox ("Tiene que ser un dia de la semana en número, del 1 al 7")
End Select
End Sub

Private Sub Command1_Click()
Print Format(Now, "dd, d-mmmm-yyyy")Print Format(Now, "hh:mm:ss")

End Sub

Private Sub Command2_Click()
Dim respuesta As Integer
respuesta = MsgBox("¿esta seguro q desea salir ?", vbYesNo + vbQuestion, "salir del programa")
Ifrespuesta = 6 Then
End
End If
End Sub

Private Sub Option1_Click()
Text1.BackColor = vbBlue
End Sub

Private Sub Option2_Click()
Text1.BackColor = vbRed
End Sub

Private Sub Option3_Click()Text1.BackColor = vbGREEEN
End Sub

Private Sub Option4_Click()
Text1.BackColor = vbYellow
End Sub

SI QUISIERAN UTILIZAR ESTE CODIGO PARA APLICARLO AL FORMULARIO
PREGUNTANDOLE AL USUARIO Q...