Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        ListBox1.Items.Clear()
        Dim arama = TextBox1.Text
        Dim baglanti As New MySqlConnection("Server=ipadresi;Port=3306;Uid=root;Password=;Database=db;Charset=utf8")
        baglanti.Open()
        Dim komut As New MySqlCommand("SELECT * FROM film Where filmadi Like '%" & arama & "%'", baglanti)
        Dim oku As MySqlDataReader = komut.ExecuteReader
        While oku.Read
            ListBox1.Items.Add(oku("filmadi"))
        End While
        baglanti.Close()
        komut.Dispose()
        oku.Close()
    End Sub