'▼移動先の地形が進入可能か Dim data As Byte = Common.Map.MapData(Me.MapPoint.X + diffX, Me.MapPoint.Y + diffY) If Landform(data).CanApproach Then 'Return True Else Return False End If