Abrir cajon

[abaylon]

EL CODIGO CORRE BIEN PERO NO ABRE EL CAJON......

Public Sub AbrirCajon()
Dim fw As StreamWriter
LPTPORT = "LPT1" 'El puerto que sea.
hPort = CreateFile(LPTPORT, GENERIC_WRITE, FILE_SHARE_WRITE, SA, OPEN_EXISTING, 0, 0)
hPortP = New IntPtr(hPort) 'Convierte Integer to IntPtr
Safe = New Microsoft.Win32.SafeHandles.SafeFileHandle(hPortP, True)

If Not Safe.IsInvalid Then
outFile = New System.IO.FileStream(Safe, IO.FileAccess.Write)
fw = New System.IO.StreamWriter(outFile)
fw.AutoFlush = True
fw.WriteLine(Chr(27) & Chr(112) & 0) 'Genérico Epson
fw.Close()
End If

CloseHandle(hPort)
End Sub

MIRA EN ESTE CODIGO LA PARTE QUE ESTA CON NEGRITA..NO SE EJECUTA
OSEA SALTA Y NO EJECUTA EL CODIGO QUE ESTA DENTRO DEL IF