10-09-18, 08:52 PM
(آخر تعديل لهذه المشاركة : 10-09-18, 08:54 PM {2} بواسطة asemshahen5.)
Module Module1
Public Sub sanaa(checkedListBox1 As CheckedListBox, Button3 As Button, Button4 As Button, IsValidate As Boolean, myCheck As CheckedListBox, WebBrowser1 As WebBrowser)
checkedListBox1.Items.Clear()
Button3.Enabled = False
Button4.Enabled = False
IsValidate = False
myCheck = New CheckedListBox()
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser1.Navigate("http://www.downvids.net/download-youtube-playlist-videos")
End Sub
End Module
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
