GEREKENLER : 1 ADET TEXTBOX VE 2 ADET BUTON FORUMUMUZA CommomDialog Eklemeyi unutmayalım
Butonların Biri Gozat icin Diğeri Calıştır olcak....



Private Sub Command1_Click()
CommonDialog1.Filter = "KnightOnLine.exe (*.exe)|*.exe;|"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub

Private Sub Command2_Click()
Shell (Text1.Text & " " & "USA_KnightOnLine")
End Sub

Private Sub Form_Load()
MsgBox "Goz At Tıklayıp KnghtOnline.exe yolunu belirtip.Sonra CAlıştıra Tıkladıızda Lanchersiz Oyuna Gireceksiniz..."
End Sub


Yorumlarınızı Esirgemeyin))
__________________