En VB, t'as la fonctions RND qui te retourne un nombre 'aléatoire' entre 0 et 1.
Donc tu peux te faire une fonction qui te retourne un nombre entre 2 valeurs
Public Function Hasard(ByVal Min As Integer, ByVal Max As Integer) As Integer
Hasard = Int(Rnd * (Max - Min + 1) + Min)
End Function
Ensuite, pour tes 3 valeurs, tu te fait un tableau
comme ca :
Dim Variable(1 to 3) As String
Variable(1) = "pat"
Variable(2) = "marie"
Variable(3) = "régis"
Il te reste plus qu'a faire un
Label3.Caption = Variable(Hasard(1,3))
Voilà, @+