untuk listting nya adalah seperti ini
Public Class Form1
Private Sub buttonhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonhapus.Click
mk.Text = ""
Dosen.Text = ""
nm.Text = ""
ns.Text = ""
na.Text = ""
End Sub
Private Sub buttonproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonproses.Click
na.Text = 0.4 * nm.Text + 0.6 * ns.Text
End Sub
Private Sub buttonkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonkeluar.Click
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
mk.items.add("pemograman visual")
mk.Items.Add("PTI")
Dosen.Items.Add("Toni Limbong,S.Kom M.Kom")
Dosen.Items.Add("Sinar Sinurat S.T M.Kom")
End Sub
Private Sub nm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nm.TextChanged
End Sub
End Class
Maka hasilnya akan seperti ini