Listing Program :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NPM.Items.Add("12110982")
NPM.Items.Add("12110040")
NPM.Items.Add("12113456")
NPM.Items.Add("12118890")
NPM.Items.Add("12113435")
KDosen.Items.Add("D001")
KDosen.Items.Add("D002")
KDosen.Items.Add("D003")
KDosen.Items.Add("D004")
KDosen.Items.Add("D005")
Kodematkul.Items.Add("M001")
Kodematkul.Items.Add("M002")
Kodematkul.Items.Add("M003")
Kodematkul.Items.Add("M004")
Kodematkul.Items.Add("M005")
Dim i As Integer
For i = 100 To 1 Step -1
Nhadir.Items.Add(i)
NT.Items.Add(i)
NU.Items.Add(i)
NUS.Items.Add(i)
Next i
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
Select Case NPM.Text
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NPM.Items.Add("12110982")
NPM.Items.Add("12110040")
NPM.Items.Add("12113456")
NPM.Items.Add("12118890")
NPM.Items.Add("12113435")
KDosen.Items.Add("D001")
KDosen.Items.Add("D002")
KDosen.Items.Add("D003")
KDosen.Items.Add("D004")
KDosen.Items.Add("D005")
Kodematkul.Items.Add("M001")
Kodematkul.Items.Add("M002")
Kodematkul.Items.Add("M003")
Kodematkul.Items.Add("M004")
Kodematkul.Items.Add("M005")
Dim i As Integer
For i = 100 To 1 Step -1
Nhadir.Items.Add(i)
NT.Items.Add(i)
NU.Items.Add(i)
NUS.Items.Add(i)
Next i
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
Select Case NPM.Text