IP Adresini bulmak(vb.net)

Public Function GetIPAddress() As String

        Dim h As System.Net.IPHostEntry = _
System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName)

        Return h.AddressList.GetValue(0).ToString

    End Function

OpenFileDialog (Vb.Net)

Private Sub btnFilePathBrowse_Click_
(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles btnFilePathBrowse.Click

      
   ofdFilePath.Title = "Please Select a File"

        ofdFilePath.FileName = ""

        ofdFilePath.InitialDirectory = "C:"

        ofdFilePath.ShowDialog()

End Sub

Private Sub ofdFilePath_FileOk_
(ByVal sender As System.Object, ByVal e As _
System.ComponentModel.CancelEventArgs) Handles ofdFilePath.FileOk

    
Dim sioStream As System.IO.Stream

    sioStream = ofdFilePath.OpenFile()

    txtFilePath.Text = ofdFilePath.FileName.ToString()

End Sub