Sub Init_InfoType()
	With f1
		if vL<>"" then
			.InfoType(0).disabled=False
			.InfoType(1).disabled=False
		else
			.InfoType(0).disabled=False
		end if
	End With
End Sub

Sub mmdocumentonKeyDown()
	if window.event.KeyCode=13 and window.event.ctrlKey then
		CMD_PubBBS()
	end if
End Sub