hola estoy empezando con lo basico en vb y me interezo un programa que vi en c
donde el programa generaba un numero al azar y el  usuario tenia que introducir un numero cualquiera sin saber que numero era el que tenia que adivinar... les dejo un screen y el code



Private Sub Command1_Click()
Dim numero As Integer
Dim scanf As Integer
Randomize Timer
numero = Rnd
numero = Rnd * 10
numero = CInt(A)
scanf = Val(Text1)
If scanf = numero Then
Label1.Caption = "acertaste" & numero
Else
If scanf < numero Then
Label1.Caption = "mas alto" & numero
Else
If scanf > numero Then
Label1.Caption = "mas bajo" & numero
Else
Label1.Caption = "que carajo escribiste¿?  " & numero
End If
End If
End If
End Sub

muchas gracias aca encontre otra forma de usar el random que tambien esta buena ...

Private Sub Command1_Click()

numero = Int((Rnd * 10) + 1)

If Text1 = "" Then
Label1.Caption = "no has introducido ningun numero " & numero
Else
If Text1 = numero Then
Label1.Caption = "acertaste " & numero
Else
If Text1 < numero Then
Label1.Caption = "mas alto " & numero
Else
If Text1 > numero Then
Label1.Caption = "mas bajo " & numero
Else
Label1.Caption = "que carajo escribiste¿?  " & numero
End If
End If
End If
End If
End Sub