1:
Dim
i
As Integer
2: i =
Convert
.ToInt32(InputBox("Texto a exibir", "Titulo", "0")) '0 é o valor inicial 3: Label1.Text = i ' faz com que apareça o valor na form de uma msgbox
Este código irá abrir uma caixa estilo MsgBox que o usuário terá que setar um valor e o Label1 receberá o valor digitado. É recomendado que coloque dentro de um Try Catch.
0 comentários:
Postar um comentário