Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Makanan As String = TextBox1.Text
If Makanan = “sate” Then
MessageBox.Show(“Enak, tetapi kolestrol tinggi”, “respon”, MessageBoxButtons.OK).ToString()
ElseIf Makanan = “Pecel” Then
MessageBox.Show(“Murah dan Sehat”, “respon”, MessageBoxButtons.OK).ToString()
ElseIf Makanan = “mie ayam” Then
MessageBox.Show(“Ini kurang sehat lho”, “respon”, MessageBoxButtons.OK).ToString()
Else
MessageBox.Show(“Maaf, yang ini no comment”, “respon”, MessageBoxButtons.OK).ToString()
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ” ”
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End Class