Imports System
Imports System.IO
Public Class BmpFile
Public Shared Sub Main()
Dim data1, data2 As Byte
Dim myFile As BinaryReader
myFile = New BinaryReader(File.Open("1.bmp", FileMode.Open))
data1 = myFile.ReadByte()
data2 = myFile.ReadByte()
myFile.Close()
If (data1 = &H42) AndAlso (data2 = &H4D) Then
Console.WriteLine("It seems to be a BMP file")
Else
Console.WriteLine("It DOES NOT seem to be a BMP file")
End If
End Sub
End Class