Private Sub Combo1_Click()

If Combo1.Text = "Sabah Gazetesi" Then

WebBrowser1.Navigate ("http://www.sabah.com.tr")

End If

If Combo1.Text = "Akşam Gazetesi" Then

WebBrowser1.Navigate ("http://www.aksam.com.tr")

End If

If Combo1.Text = "Taraf Gazetesi" Then

WebBrowser1.Navigate ("http://www.taraf.com.tr")

End If

If Combo1.Text = "HaberTürk Gazetesi" Then

WebBrowser1.Navigate ("http://www.haberturk.com")

End If

If Combo1.Text = "Zaman Gazetesi" Then

WebBrowser1.Navigate ("http://www.zaman.com.tr")

End If

If Combo1.Text = "Milliyet Gazetesi" Then

WebBrowser1.Navigate ("http://www.milliyet.com.tr")

End If

If Combo1.Text = "Hürriyet Gazetesi" Then

WebBrowser1.Navigate ("http://www.hurriyet.com.tr")

End If

If Combo1.Text = "Star Gazetesi" Then

WebBrowser1.Navigate ("http://www.stargazete.com")

End If

If Combo1.Text = "Bugün Gazetesi" Then

WebBrowser1.Navigate ("http://www.bugun.com.tr")

End If

If Combo1.Text = "Posta Gazetesi" Then

WebBrowser1.Navigate ("http://www.posta.com.tr")

End If

If Combo1.Text = "Takvim Gazetesi" Then

WebBrowser1.Navigate ("http://www.takvim.com.tr")

End If

If Combo1.Text = "Tercuman Gazetesi" Then

WebBrowser1.Navigate ("http://www.tercuman.com.tr")

End If

If Combo1.Text = "Fanatik Gazetesi" Then

WebBrowser1.Navigate ("http://www.fanatik.com.tr")

End If

If Combo1.Text = "Fotomaç Gazetesi" Then

WebBrowser1.Navigate ("http://www.fotomac.com.tr")

End If

End Sub





Private Sub Form_Load()

Combo1.AddItem ("Sabah Gazetesi")

Combo1.AddItem ("Akşam Gazetesi")

Combo1.AddItem ("Taraf Gazetesi")

Combo1.AddItem ("HaberTürk Gazetesi")

Combo1.AddItem ("Zaman Gazetesi")

Combo1.AddItem ("Milliyet Gazetesi")

Combo1.AddItem ("Hürriyet Gazetesi")

Combo1.AddItem ("Star Gazetesi")

Combo1.AddItem ("Bugün Gazetesi")

Combo1.AddItem ("Posta Gazetesi")

Combo1.AddItem ("Takvim Gazetesi")

Combo1.AddItem ("Tercuman Gazetesi")

Combo1.AddItem ("Fanatik Gazetesi")

Combo1.AddItem ("Fotomaç Gazetesi")

End Sub



Private Sub Label1_Click()

Shell ("explorer.exe https://accesstr.net")



End Sub