Visual Basic

<br />
Dim a As String<br />
a= Shell("rundll32.exe url.dll,FileProtocolHandler " & FileListBox1.SelectedItem)<br />

Imports System.Net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim host As IPHostEntry
            Dim hostname As String = textbox1.text
            host = Dns.GetHostEntry(hostname)
            Dim fqdnAddress As String = host.AddressList(0).ToString()
            TextBox2.Text = fqdnAddress
        Catch ex As Exception
            MsgBox("Unknown error")
        Finally

        End Try
          End Sub
End Class

Function Negatief(ByVal I As Bitmap) As Bitmap
    Dim b As Bitmap = I.Clone
    Dim clr As Color
    For py As Integer = 0 To I.Height - 1
      For px As Integer = 0 To I.Width - 1
        clr = I.GetPixel(px, py)
        b.SetPixel(px, py, _
            Color.FromArgb(clr.A, clr.R Xor 255, clr.G Xor 255, clr.B Xor 255))
      Next px
    Next py
    Return b
  End Function