Private Sub combobox() 'ByVal sender As System.Object, ByVal e As 
' System.EventArgs)
        Dim dt3 As System.Data.DataTable = New System.Data.DataTable
        Dim dr As System.Data.DataRow
 
        dt3.Columns.Add("ProgtypKurz")
        dt3.Columns.Add("Progtyplang")
        dr = dt3.NewRow
        dr("Progtypkurz") = "A"
        dr("Progtyplang") = "iSeries-Programm"
        dt3.Rows.Add(dr)
 
        dr = dt3.NewRow
        dr("Progtypkurz") = "V"
        dr("Progtyplang") = "VBA-Makro"
        dt3.Rows.Add(dr)
 
        dr = dt3.NewRow
        dr("Progtypkurz") = "E"
        dr("Progtyplang") = "Externes PC-Programm"
        dt3.Rows.Add(dr)
 
        dr = dt3.NewRow
        dr("Progtypkurz") = "S"
        dr("Progtyplang") = "Script-Programm"
        dt3.Rows.Add(dr)
 
        Me.combo1.DataSource = dt3
        Me.combo1.ValueMember = "Progtypkurz"
        Me.combo1.DisplayMember = "Progtyplang"
    End Sub