Türkiye'nin ilk Cross-Platform OldSchool MOBİL & PC 1-99 Sunucusu Lamira2 6 Kasım'da Açılıyor! Büyük Açılışı Kaçırma HEMEN TIKLA!
Web adresleri nasıl açılır ( Bi Butonun veya Labelın Click Olayına Ekleyin )
Kod:
Dim iRet As Long
Dim Cevap As Integer
Cevap = MsgBox("www.webhocam.com adresini açmak istiyor musunuz?", vbInformation + vbYesNo, www.webhocam.com )
Select Case Cevap
Case vbYes
iRet = Shell("start.exe http://www.webhocam.com", vbNormal )
Case vbNo
Exit Sub
End Select