konversi sistem bilangan dengan vibi,net

sebuah conversi sistem bilangan kayak nya sulit untuk kita hitung, tapi kali ini kita akan mencoba untuk membuat sebuah aplikasi untuk mengkonversi sistem bilangan decimal.
kita tau bahwa sistem bilangan ada empat,  yaitu; biner, decimal, oktal dan biner.
dalam aplikasi kta memerlukan sebuah label dan tiga buah label.

buat codding dalam textbox1 sebagai berikut;

 Dim bagi As Long = Val(TextBox1.Text)
        Label3.Text = ""
        While bagi > 0
            Label3.Text = (bagi Mod 2) & Label3.Text
            bagi = bagi \ 2
        End While

        Label1.Text = Microsoft.VisualBasic.Hex(Val(TextBox1.Text))
        Label2.Text = Microsoft.VisualBasic.Oct(Val(TextBox1.Text))

selamat mencoba semoga sukses dan bermanfa'at bagi kalian.