Como hacer un msgbox aleatorio en un memorama ?

[mllton]

Estoy modificando un codigo de memorama, en este juego cuando destapas la segunda carta y resulta que no es par de la primera carta destapada aparece un MsgBox que dice "Te equivocaste" ,se puede hacer algo para que en lugar de que siempre aparezca "Te equivocaste" aparezcan mensajes diferentes ?

Aqui es donde segun yo creo que se puede modificar esto o acá dejo el juego completo http://www.mediafire.com/?azknm45yz3yy5gx

Código: [Seleccionar]

Private Sub lblBoton_Click(Index As Integer)
  frmMemo.imgImagen(Index).Visible = True
  frmMemo.lblboton(Index).Visible = False
  intChecar = intChecar + 1
  If intChecar = 1 Then
    intImagen1 = Index
  End If
 
  If intChecar = 2 Then
    intChecar = 0
    intImagen2 = Index
    intParNon = Index Mod 2
    If intParNon = 0 Then
      ' Aqui es par, se compara el numero anterior
      If frmMemo.imgImagen(Index + 1).Visible = False Then
        ' No esta visible el par
        ' Oculta las imagenes
        MsgBox "Te Equivoaste", vbExclamation + vbOKOnly
        frmMemo.imgImagen(intImagen1).Visible = False
        frmMemo.imgImagen(intImagen2).Visible = False
        ' Se muestran las etiquetas
        frmMemo.lblboton(intImagen1).Visible = True
        frmMemo.lblboton(intImagen2).Visible = True
      Else
        ' Veo si ya se destaparon todas
        Checar_Final
      End If
    Else
      ' Aqui es non, se compara el umero siguiente
      If frmMemo.imgImagen(Index - 1).Visible = False Then
        ' No estan visible el par
        ' Se ocultan las imagenes
        MsgBox "Te Equivoaste", vbExclamation + vbOKOnly
        frmMemo.imgImagen(intImagen1).Visible = False
        frmMemo.imgImagen(intImagen2).Visible = False
        ' Se muestran las etiquetas
        frmMemo.lblboton(intImagen1).Visible = True
        frmMemo.lblboton(intImagen2).Visible = True
      Else
        ' Veo si ya se destaparon todas
        Checar_Final
      End If
    End If
  End If
End Sub

[Bazooka]

Hola amigo,  es muy facil mira el procedimiento que te cree:

Código: [Seleccionar]

Private Sub MensajeAleatorio()

    Dim Index As Integer
    Dim MensajeAleatorio As String
    'OBTIENE UN NUMERO ALEATORIO ENTRE 1 Y 5
    Index = Int(Rnd * 5) + 1

    Select Case Index
       
        Case 1: MensajeAleatorio = "Me parece que no es así!"

        Case 2: MensajeAleatorio = "OTRO MENSAJE"

        Case 3: MensajeAleatorio = "Y OTRO"

        Case 4: MensajeAleatorio = "Y OTRO MAS"

        Case 5: MensajeAleatorio = "UF ME CANSE"

        Case Else: MensajeAleatorio = "Te equivocaste"

    End Select

MsgBox MensajeAleatorio, vbOKOnly

End Sub

Y simplemente reemplazas la linea '       

'MsgBox "Te Equivoaste", vbOKOnly
por esta otra Call MensajeAleatorio


Exitos!

[mllton]

Gracias ya lo puse igual y quedo bien =)