[mohamed haroon]

(27-07-15, 05:42 PM)الطالب كتب : سلام

هذا مثال

كود :

Public Class Form1

Protected Overrides Sub SetVisibleCore(ByVal value As Boolean)
   If Not IsHandleCreated Then
       CreateHandle()
       value = False
   End If
   MyBase.SetVisibleCore(value)
       '----------------------------
       Call CommandLine()
   End Sub

   Private Sub CommandLine()
       For Each arg As String In My.Application.CommandLineArgs
           If arg = "/msg" Then
               MsgBox("مرحبا")
           End If
       Next
       '----------------------------
       Application.Exit()
   End Sub

End Class

موفقين

شكرا استفدت كثيرا من ردك