Lo que agusO dice no se hace con type sino con Enum (Enumeracion)
copia este codigo en un Form y lo ejecutas:
copia este codigo en un Form y lo ejecutas:
Código [Seleccionar]
Option Explicit
'Primero escribes tu Enumeracion (Enum)
'Luego defines los valores de sus miembros
Private Enum TipoMensaje 'Aqui pones el nombre que quieras, igual modo para cada miembro
Error = 16 'opcion 1 ----> vbCritical
Exclamacion = 48 'opcion 2 ---->vbExclamation
Informacion = 64 'opcion 3 ---->vbInformation
End Enum 'Fin del enum
Private Enum TipoResultado
Si = 6
No = 7
End Enum
Private Sub Form_Load()
'Luego declaras tus variables asi:
'dim Variables as MiEnum , en este caso Dim Resultado as TipoRespuesta
Dim Resultado As TipoResultado
'cuando quieras asignar un valor a la variable te saldra la lista
'Aqui en esta llamada a Mensaje cuando escribas el 2do parametro te desplegarà
'la lista de miembros del Enum (Error - Exclamacion - Informacion)
Mensaje "Ejemplo de Enum", Informacion, "Ejemplo VB 6"
Resultado = MensajeSiNo("¿Eres listo?", "Ejemplo")
If Resultado = Si Then
MsgBox "Ejegiste Si"
ElseIf Resultado = No Then
MsgBox "Ejegiste No"
End If
End Sub
Private Function Mensaje(Texto As String, Estilo As TipoMensaje, Titulo As String)
MsgBox Texto, Estilo, Titulo
End Function
'Aqui pones tu Funcion (...) as TuEnum para que tambien te despliegue la lista de miembros
Private Function MensajeSiNo(Texto As String, Titulo As String) As TipoResultado
MensajeSiNo = MsgBox(Texto, vbYesNo, Titulo)
End Function
