Contoh2 program vb

 Contoh program untuk "Daftar Makanan"

Tampilan form yang akan kita buat seperti ini:

dengan nama properties: Form1, Label1, TextBox1, dan Button1
kemudian berikut source-code nya:

01	Public Class Form1

02

03	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

04	Dim Makanan As String = UCase(TextBox1.Text)

05	If Makanan = "SATE" Then

06	MessageBox.Show("Enak, tapi kolesterol tinggi", "Respon", MessageBoxButtons.OK).ToString()

07	ElseIf Makanan = "PECEL" Then

08	MessageBox.Show("Murah dan Sehat!", "Respon", MessageBoxButtons.OK).ToString()

09	ElseIf Makanan = "MIE AYAM" Then

10	MessageBox.Show("Ini kurang sehat lho!", "Respon", MessageBoxButtons.OK).ToString()

11	ElseIf Makanan = "" Then

12	MessageBox.Show("Makanan belum diisikan", "Respon", MessageBoxButtons.OK).ToString()

13

Else

14	MessageBox.Show("Maaf yang ini No Comment! ;p", "Respon", MessageBoxButtons.OK).ToString()

15

End If

16

End Sub

17

18	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

19	Label1.Text = "Apa makanan favorit Anda?"

20

End Sub

21

End Class

      UCase digunakan untuk mengonversikan setiap input yang dilakukan menjadi huruf kapital semua. Hal ini dilakukan agar program dapat mengenali, baik input huruf kecil maupun huruf besar, pada akhirnya akan dianggap sama oleh program, yakni sebagai huruf kapital(huruf besar).