la cosa es esta, tengo una función que devuelve un numero del 0 al 10 de manera aleatoria luego de dar clic a una imagen, quiero que si el numero que devuelva resulta ser 5 entonces aparezcan dos imágenes en orden horizontal. Mi problema es que necesito que cada que salga el 5 se decida de manera aleatoria el par de imagenes que se mostrarán. Es decir, la imagen "A" y "B" o el par de "C" y "D". Intenté hacer una función para cada par, luego un generador aleatorio de numeros entre 1-2 para poner condicionar si sale 1 entonces mostrar el primer par de imagenes y si devuelve 2 mostrar el segundo par. Pero no funciona simplemente se queda pasmado. Aquí esta lo que tengo de código '''
Private Sub Boton_Centro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton_Centro.Click
dado_yo() 'generador aleatorio de numeros del 1 al 10
If dado_yo() = 5 Then
Cambio_E() 'esta es la subrutina para que el par de imagenes se hagan visibles
End If
End Sub
Public dcolor As Integer
Function orden_botones()
Randomize()
dcolor = Int((2 * Rnd()) + 1) 'generador de numeros aleatorios del 1 al 2
Return dcolor
End Function
Sub Cambio_E()
orden_botones()
Boton_Centro.Enabled = False
Do
If orden_botones() = 1 Then Exit Do
Paquete_1() 'cada paquete es una subrutina haciendo visible un par de imagenes
If orden_botones() = 2 Then Exit Do
Paquete_2()
Loop
End Sub
End Class