Penggunaan IF.....THEN......ELSE

Buat tampilan Form Seperti Ini :                                                   

Add caption

Berikut Listing Programnya :

Public Class FrmBpc_Dasar1

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

        Call tampil()

    End Sub

    Sub tampil()

        Dim i As Byte

        kode.Items.Clear()

        For i = 1 To 5

            kode.Items.Add("B00" & i.ToString)

        Next

    End Sub