Visual Basic

Public Shared Function SetBit(ByVal value As Byte, ByVal position As Integer) As Byte
    If position < 1 Or position > 8 Then
        Throw New ArgumentOutOfRangeException("Position must be between 1 and 8.")
    End If
 
    Dim mask As Byte = CByte(2 ^ (position - 1))
    If Not value And mask Then
        value = value Or mask
    End If
    Return value
End Function

Dim args As String() = Environment.GetCommandLineArgs()
If args.Length > 1 Then
    ' There's at least one argument, besides our .EXE filename
    ' Treat the first argument as a filename and try to open it as text file.
    LoadFile( args(1) )
End If
.
.


Private Sub LoadFile(ByVal filepath As String)
    Try
        If File.Exists(filepath) Then
            Text1.Text = File.ReadAllText(filepath)
        Else
            Throw New FileNotFoundException(String.Format("The filepath {0} was not found!", filepath))
        End If
    Catch ex As Exception
         ' Not exactly "good practice", but this works for this example...
        Throw ex
    End Try
End Sub

Private Sub LoadFile(ByVal <code>filepath</code> As String)

xmen_xwk wrote:

i didnt understand that how the value\file path come in this variable(filepath)...????


Private Sub LoadFile(ByVal filepath As String)

xmen_xwk wrote:

when i click on a button then it should change open with program to mine application

Dim newForm As New Form2
newForm.ShowInTaskbar = False
newForm.Show()