窗体上放入一个多行文本框（带纵向滚动条），一个命令按钮：@H_403_2@

@H_403_2@

Private Sub Command1_Click()

Dim ss() As Byte,i As Long

Open "e:\tmp\123.txt" For Binary As #1

ss = InputB(LOF(1),#1)

Close #1

For i = 0 To UBound(ss) 

	@H_403_2@If i > 0 And (i Mod 16) = 0 Then 

		@H_403_2@Text1.SelText = vbCrLf

		@H_403_2@Text1.SelText = Right("0" & Hex(ss(i)),2) & " "

	@H_403_2@endif

Next

End Sub