Al azar

[servantsoftware]

Hermanito, buenisimo!, ahora bien trate de hacer un metodo pero no pude.

podrias decirme, como poner ese codigo o darme un ejemplo mas con ese mismo para que cada vez que caiga en uno salga un mensaje box:

Por ejemplo

Case0:

Msgbox (), vbinformation

Case1:

Msgbox (), infomation
,

de esto me encargo yo, pero como hacer para que cada vez que caiga se active el case de cada elemento. muchisimas gracias amigo...