Private Sub Form_Load()
On Error Resume Next
 
 Me.Move (midi.ScaleWidth / 2) - (Me.Width / 2), (midi.ScaleHeight / 2) - ( _
   Me.Height / 2)
 Select Case midi.sKeyNames2.Text
    Case "German"
        Call Suchen_de
    Case "England"
        Call Suchen_e
    End Select
 
    With li
        .view = lvwReport
        .FullRowSelect = True
        .LabelEdit = lvwManual
        .ColumnHeaders.Clear
        .ColumnHeaders.Add , , "ID", 2400
        .ColumnHeaders.Add , , "Titel", 600
 
    End With
End Sub
 
Sub prz_output_film()
On Error Resume Next
Dim mid_film 
Dim mName1_film 
Dim mZeile_film
Dim mDate_film
Dim lvi As ListItems
 
 
        If rs.RecordCount = 0 Then
                pic_no_search.Visible = True
                CountIt = "3"
                no_search.Enabled = True
                Frame1.Visible = False
                txt_suchkriterien.Visible = True
                frm_resultat.Visible = False
                List1.Clear
                frm_resultat.Top = 2520
                frm_resultat.Left = 120
                cmd_beenden.Top = 2640
                cmd_beenden.Left = 3720
                cmd_suchen.Top = 2640
                cmd_suchen.Left = 240
                Image2.Top = 3120
                Image2.Left = 0
        End If
 
rs.MoveFirst
 
With li
        .ListItems.Clear
 
Do While Not rs.EOF
 
Set lvi = .ListItems.Add(, , CStr(mid_film))
lvi.Add.SubItems(1) = CStr(mName1_film)
 
            rs.MoveNext
 
        Loop
    End With
rs.Close
 
 
End Sub