Queria saber como se hace para mostrar u ocultar de manera aleatoria un label, es decir, que yo pulso un button1 y existe la posibilidad de que se muestre o se oculte de manera aleatoria; lo he intentado asi:

Código:

Private Function Aleatorio(ByVal Minimo As Long, ByVal Maximo As Long) As Long
        Randomize()
        Aleatorio = CLng((Minimo - Maximo) * Rnd() + Maximo)
End Function
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = Aleatorio(CLng(Label1.Visible = False), CLng(Label1.Visible = True))

pero no ha funcionado...¿cómo se podria hacer?

1 saludo, muchas gracias

Estimado Amigo:

Rara peticion la tuya pero sencilla o al menos eso creo...

Código:

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Randomize()
        Dim Random As New Random()
        Dim bolBoolean As Boolean = Random.Next(0, 2)
        Me.Text = bolBoolean
    End Sub
End Class

puedes hacerlo como funcion y que te regrese el valor:

Código:

Private Function Aleatorio() As Boolean
   Randomize()
   Dim Random As New Random()
   Return Random.Next(0, 2)
End Function 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   Label1.Text = Aleatorio(Random.Next(0, 2)
End Sub

Ojala te sirva saludos cordiales.