معادل کدنویسی VB6 در vb.net

[Rain_Saeid]

سلام
دوستان و اساتید عزیز میخواستم بدونم معادل کدنویسی این تیکه برنامه چطوریه:

کد php:

    Private Sub PushButton_Click(Index As Integer)
If ModelName = "" Then MsgBox "Please Choose the model, then use the options " & PushButton(Index).Caption & " for it!", vbOKOnly, "First : Select model": Exit Sub

      Select Case Index
    Case 0
        Shell ModelName, vbNormalFocus
        
    Case 1
        Shell ModelFrCName, vbNormalFocus
        
    Case 2
        Shell ModelFlFName, vbNormalFocus 


یا اینکه چطور این تیکه دستور رو با روشی دیگر اجرا کنم؟

[Ghoghnus]

سلام
دوستان و اساتید عزیز میخواستم بدونم معادل کدنویسی این تیکه برنامه چطوریه:

Private Sub PushButton_Click(Index As Integer)
If ModelName = "" Then MsgBox "Please Choose the model, then use the options " & PushButton(Index).Caption & " for it!", vbOKOnly, "First : Select model": Exit Sub

Select Case Index
Case 0
Shell ModelName, vbNormalFocus

Case 1
Shell ModelFrCName, vbNormalFocus

Case 2
Shell ModelFlFName, vbNormalFocus

یا اینکه چطور این تیکه دستور رو با روشی دیگر اجرا کنم؟

سلام
شرط که فرقی نمیکنه ساختارش یکی هست
دستور shell چند تا کد معادل داره که میشه:

کد:

Shell "Notepad.exe"

کد:

System.Diagnostics.Process.Start("Notepad.exe")

چنانچه فایل اجرایی نیاز به آرگومان خط فرمان داشته باشد:

کد:

System.Diagnostics.Process.Start("Notepad.exe", "c:\Test.txt")

برای MsgBox اینجا را ببینید
و اینکه اگه اشتباه نکرده باشم vb.net Caption knhvi f[ha بجاش text باید بزارید