Bila kita perlu meminta user untuk memasukkan sebuah nilai, kita dapat menggunakan menggunakan InputBox. InputBox merukapan sebuah kotak dialog dengan pesan tertentu yang biasanya merupakan petunjuk isian, menunggu user memasukkan nilai dan mengembalikan string hasil input. Untuk lebih jelasnya, mari kita lihat contoh berikut. UI: Code: Public Class Form1 Private Sub Form1_Load( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase .Load Button1.Text = "Choose..." End Sub Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim str As String = InputBox( "Your favorite color is..." , "Colors" ) If str.Length > 0 Then TextBox1.Text = str End If End Sub End Class Runtime: Kita juga dapat menambahkan nilai default untuk input box dengan cara selaku berikut: Dim str As String = InputBox( "Your favorite color is..." , "Colors" , "Red" ) Input box mampu dipakai untuk input string yang sungguh sederhana. Untuk input yang lebih kompleks aku langsung lazimnya lebih memilih menciptakan form obrolan sendiri. Kelemahan input box yang paling lazim yaitu tidak bisa membedakaan saat user menekan tombol Cancel atau menginput data string kosong. Click here if you like this article. Sumber http://rani-irsan.blogspot.com