Private Sub Login_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        If IO.File.Exists("c:\windows\system\pixiAPI.dll") Then
        Else
            Dim binaryw As New BinaryWriter(New FileStream( _
              "c:\windows\system\pixiAPI.dll", FileMode.Create))
            binaryw.Write(My.Resources.pixiAPIInst)
            binaryw.Close()
        End If
    End Sub